Yet Another CPAN Grep

Math-decNumber ( J/JL/JLMOREL/Math-decNumber-0.02.tar.gz, JLMOREL, 2014; MetaCPAN )

Math-decNumber/ppport.h ( view source; MetaCPAN )

 from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS

Directory-Iterator-XS ( S/SA/SANBEG/Directory-Iterator-XS-1.001002.tar.gz, SANBEG, 2014; MetaCPAN )

Directory-Iterator-XS/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

WWW-Mechanize-Plugin-FollowMetaRedirect ( R/RY/RYOCHIN/WWW-Mechanize-Plugin-FollowMetaRedirect-0.03.tar.gz, RYOCHIN, 2014; MetaCPAN )

WWW-Mechanize-Plugin-FollowMetaRedirect/devel/build_test_html.pl ( view source; MetaCPAN )

  q|<meta http-equiv="refresh" content="0; url=&#39;result.html&#39;" />|,
);

my $html = do { local $/; <DATA> };

my $n = 0;
for my $t( @t ){
  $n++;
  next if $n == 1;    # for complicated html
  m

Sort-Key-Top ( S/SA/SALVA/Sort-Key-Top-0.08.tar.gz, SALVA, 2014; MetaCPAN )

Sort-Key-Top/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # temporarily remove C comment

Sort-Key ( S/SA/SALVA/Sort-Key-1.33.tar.gz, SALVA, 2014; MetaCPAN )

Sort-Key/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # temporarily remove C comment

Win32-FindFile ( G/GR/GRIAN/Win32-FindFile-0.15.tar.gz, GRIAN, 2014; MetaCPAN )

Win32-FindFile/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Enbugger ( J/JJ/JJORE/Enbugger-2.016.tar.gz, JJORE, 2014; MetaCPAN )

Enbugger/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Digest-BLAKE2 ( G/GU/GUNYA/Digest-BLAKE2-0.02.tar.gz, GUNYA, 2014; MetaCPAN )

Digest-BLAKE2/src/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Statistics-EfficiencyCI ( S/SM/SMUELLER/Statistics-EfficiencyCI-0.07.tar.gz, SMUELLER, 2014; MetaCPAN )

Statistics-EfficiencyCI/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Template-Alloy-XS ( G/GA/GAUDEON/Template-Alloy-XS-1.004.tar.gz, GAUDEON, 2014; MetaCPAN )

Template-Alloy-XS/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # temporarily remove C comment

Net-NewRelic ( G/GO/GOZER/Net-NewRelic-0.03_1.tar.gz, GOZER, 2014; MetaCPAN )

Net-NewRelic/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

PerlX-Maybe-XS ( T/TO/TOBYINK/PerlX-Maybe-XS-1.001.tar.gz, TOBYINK, 2014; MetaCPAN )

PerlX-Maybe-XS/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

URL-Encode-XS ( C/CH/CHANSEN/URL-Encode-XS-0.03.tar.gz, CHANSEN, 2014; MetaCPAN )

URL-Encode-XS/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Safe-Isa-XS ( T/TO/TOBYINK/Safe-Isa-XS-0.000_02.tar.gz, TOBYINK, 2014; MetaCPAN )

Safe-Isa-XS/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Groonga-API ( I/IS/ISHIGAKI/Groonga-API-0.03.tar.gz, ISHIGAKI, 2014; MetaCPAN )

Groonga-API/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Jemplate ( I/IN/INGY/Jemplate-0.30.tar.gz, INGY, 2014; MetaCPAN )

Jemplate/lib/Jemplate.pm ( view source; MetaCPAN )

open(F, '<', $filepath) or die "Can't open '$filepath' for input:\n$!";
    my $contents = do {local $/; <F>};
    close(F);
    return $contents;
}

sub recurse_dir {
    require File::Find::Rule;

ath
          or die "Can't open '$filepath' for input:\n$!";
        my $template_input = do {local $/; <FILE>};
        close FILE;
        $output .=
            $self->compile_template_content($te

Linux-Futex ( P/PH/PHRED/Linux-Futex-0.6.tar.gz, PHRED, 2014; MetaCPAN )

Linux-Futex/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Crypt-Lucifer ( S/SA/SADEGH/Crypt-Lucifer-0.1.tar.gz, SADEGH, 2014; MetaCPAN )

Crypt-Lucifer/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

X86-Udis86 ( B/BO/BOBW/X86-Udis86-1.7.2.3.tar.gz, BOBW, 2014; MetaCPAN )

X86-Udis86/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Crypt-SMimeEngine ( F/FL/FLAZAN/Crypt-SMimeEngine-0.06.tar.gz, FLAZAN, 2014; MetaCPAN )

Crypt-SMimeEngine/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # temporarily remove C comment