Benign netbsd Download

databases/p5-DBIx-Class-InflateColumn-IP 0.02003

Perl unlink file deletion callSource contains low-bit mask syntax

SHA-256250bbcfdd3c6863556fbafdd31e6245dbc3f6d4157ba1c1d6aeb87a427c4acb8

URLhttps://www.cpan.org/modules/by-module/DBIx/DBIx-Class-InflateColumn-IP-0.02003.tar.gz

Evidence

imports LWP::Simple lines 17–22

48… +)| or return;
18
  if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
      $args{url} = $args{ftp_url}
          or (warn("LWP support unavailable!\n"), return);
      ($scheme, $ho …

imports Socket lines 27–40

10…  "Fetching '$file' from $host... ";
28
  unless (eval { require Socket; Socket::inet_aton($host) }) {
      warn "'$host' resolve failed!\n";
      return;
  }
33
  return unless $scheme eq 'ftp' or $scheme eq 'http';
35
  require Cwd;
  my $dir = Cwd::getcwd();
  chdir $args{local_dir} or return if exists $args{local_dir};
39
  if (eval …

imports Net::FTP lines 41–45

17… ple::mirror($args{url}, $file);
  }
  elsif (eval { require Net::FTP; 1 }) { eval {
      # use Net::FTP to get past firewall
      my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600) …

Perl LWP GET call lines 46–58

26… ymous", '[email protected]');
      $ftp->cwd($path);
      $ftp->binary;
      $ftp->get($file) or (warn("$!\n"), return);
      $ftp->quit;
  } }
  elsif (my $ftp = $self->can_run('ftp')) { eval {
      # no Net::FTP, fallback to ftp.exe
      require FileHandle;
      my $fh = FileHandle->new;
56
      local $SIG{CHLD} = 'IGNORE';
      unless ($fh->o …

Perl unlink file deletion call lines 84–89

3…   return if exists $args{size} and -s $file != $args{size};
  system($args{run}) if exists $args{run};
  unlink($file) if $args{remove};
87
  print(((!exists $args{check_for} or -e $args{check_for})
      ? "done!" : "failed! ($!)"), "\n …

Showing the top 5 files — 1 more file (17 regions) not shown.

No evidence locations were recorded for this file. Raw result