Benign Download

minimal-x86-64/nixos-minimal-25.05.813814.ac62194c3917-x86_64-linux/nix-store.squashfs.d/k9lfh0l007sp61rag7d9bf3nn5bg3qy7-perl-5.40.0/bin

Perl unlink file deletion callOpen target file for overwrite

SHA-2562d25ac967e490f3cd2e53e0668dec0c5299b20dd8f13480f85318569a4d4ec86

Evidence

English function-word token "for" lines 3–18

⋯8 lines
11use Getopt::Std;
12
13# Make sure read permissions for all are set:
14if (defined umask && (umask() & 0444)) {
15    umask (umask() & ~0444);
16}
17
18getopts(' …

English function-word token "and" lines 19–26

19:31… _r $opt_l $opt_h $opt_a $opt_Q $opt_e);
20die "-r and -a options are mutually exclusive\n" if ($opt_r and $opt_a);
21my @inc_dirs = inc_dirs() if $opt_a;
22
23my $Exit = 0;
24
25my $Dest_dir = $opt_d || $Config{installsitearch};
26die  …

Open target file for overwrite lines 67–76

78… 
  $eval_index = 1;
69
  if ($file eq '-') {
open(IN, "-");
open(OUT, ">-");
  } else {
($outfile = $file) =~ s/\.h$/.ph/ || next;
print "$file -> $outfile\n" unless $opt_Q;
if ($file =~ m|^(.*)/|)  …

Perl unlink file deletion call lines 331–342

7… new =~ s/(["\\])/\\$1/g;       #"]);
   # now that's almost like a macro (we hope)
   EMIT($proto);
}
  }
  $Is_converted{$file} = 1;
  if ($opt_e && exists($bad_file{$file})) {
      unlink($Dest_dir . '/' . $outfile);
      $next = '';
  } else {
      print OUT "1;\n";
queue_includes_from($file) if $opt_a;

Perl backticks command execution lines 723–731

723:43… tional include directories.
724sub inc_dirs
725{
726    my $from_gcc   = `LC_ALL=C $Config{cc} -v -E - < /dev/null 2>&1 | awk '/^#include/, /^End of search list/' | grep '^ '`;
727    length($from_gcc) ? (split(' ', $from_gcc), $Config{usrinc}) : ($Config{usrinc});
728}
729
730
731# Create "_h2ph_pre.ph", if it doesn …