Yet Another CPAN Grep

PerlGSL-RootFinding-SingleDim ( J/JB/JBERGER/PerlGSL-RootFinding-SingleDim-0.001.tar.gz, JBERGER, 2012; MetaCPAN )

PerlGSL-RootFinding-SingleDim/lib/PerlGSL/RootFinding/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

Win32-Monitoring-WindowPing ( R/RP/RPLESSL/Win32-Monitoring-WindowPing-0.07.tar.gz, RPLESSL, 2012; MetaCPAN )

Win32-Monitoring-WindowPing/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-Monitoring-Session ( R/RP/RPLESSL/Win32-Monitoring-Session-0.04.tar.gz, RPLESSL, 2012; MetaCPAN )

Win32-Monitoring-Session/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

invoker ( C/CL/CLKAO/invoker-0.32.tar.gz, CLKAO, 2012; MetaCPAN )

invoker/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

Apache2-ModXml2 ( J/JZ/JZOBEL/Apache2-ModXml2-0.01.tar.gz, JZOBEL, 2012; MetaCPAN )

Apache2-ModXml2/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

Sort-Key-Radix ( S/SA/SALVA/Sort-Key-Radix-0.14.tar.gz, SALVA, 2012; MetaCPAN )

Sort-Key-Radix/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

Data-Password-passwdqc ( S/SH/SHERWIN/Data-Password-passwdqc-0.05.tar.gz, SHERWIN, 2012; MetaCPAN )

Data-Password-passwdqc/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

Box2D ( J/JT/JTPALMER/Box2D-0.07.tar.gz, JTPALMER, 2012; MetaCPAN )

Box2D/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

Boost-Geometry-Utils ( A/AA/AAR/Boost-Geometry-Utils-0.05.tar.gz, AAR, 2012; MetaCPAN )

Boost-Geometry-Utils/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

namespace-alias ( F/FL/FLORA/namespace-alias-0.02.tar.gz, FLORA, 2012; MetaCPAN )

namespace-alias/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

PAM ( H/HA/HACHI/PAM-0.31.tar.gz, HACHI, 2012; MetaCPAN )

PAM/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

Protocol-Redis-XS ( D/DG/DGL/Protocol-Redis-XS-0.05.tar.gz, DGL, 2012; MetaCPAN )

Protocol-Redis-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

Ogg-Vorbis-LibVorbis ( V/VI/VIGITH/Ogg-Vorbis-LibVorbis-0.01.tar.gz, VIGITH, 2012; MetaCPAN )

Ogg-Vorbis-LibVorbis/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

Class-Easy ( A/AP/APLA/Class-Easy-0.18.tar.gz, APLA, 2012; MetaCPAN )

Class-Easy/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

Win32-JobAdd ( D/DJ/DJOOS/Win32-JobAdd-1.00.tar.gz, DJOOS, 2012; MetaCPAN )

Win32-JobAdd/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

Crypt-OpenSSL-Blowfish-CFB64 ( M/MO/MONS/Crypt-OpenSSL-Blowfish-CFB64-0.01.tar.gz, MONS, 2012; MetaCPAN )

Crypt-OpenSSL-Blowfish-CFB64/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-Magic ( S/SK/SKNPP/Template-Magic-1.4.tar.gz, SKNPP, 2012; MetaCPAN )

Template-Magic/lib/Template/Magic.pm ( view source; MetaCPAN )

e memory.

Don't do this:

    open TEMPLATE, '/path/to/big_template' ;
    $big_template = do{local $/; <TEMPLATE>} ;
    $output = $tm->output(\$big_template);
    print $$output;

You can save a lo

Imager-Screenshot ( T/TO/TONYC/Imager-Screenshot-0.012.tar.gz, TONYC, 2012; MetaCPAN )

Imager-Screenshot/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

Jemplate ( F/FR/FREW/Jemplate-0.262.tar.gz, FREW, 2012; 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

Cond-Expr ( F/FL/FLORA/Cond-Expr-0.02.tar.gz, ETHER, 2012; MetaCPAN )

Cond-Expr/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