Yet Another CPAN Grep

Socket-GetAddrInfo ( P/PE/PEVANS/Socket-GetAddrInfo-0.22.tar.gz, PEVANS, 2012; MetaCPAN )

Socket-GetAddrInfo/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

Devel-Hexdump ( M/MO/MONS/Devel-Hexdump-0.02.tar.gz, MONS, 2012; MetaCPAN )

Devel-Hexdump/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

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

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

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

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

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

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

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

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

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

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

Speech-eSpeak ( H/HG/HGNENG/Speech-eSpeak-0.4.tar.gz, HGNENG, 2012; MetaCPAN )

Speech-eSpeak/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

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

Perlbal ( D/DO/DORMANDO/Perlbal-1.80.tar.gz, DORMANDO, 2012; MetaCPAN )

Perlbal/lib/Perlbal/Test.pm ( view source; MetaCPAN )

ontent {
    my $file = shift;
    my $ct;
    open (F, $file) or return undef;
    $ct = do { local $/; <F>; };
    close F;
    return $ct;
}

=head1 I<foreach_aio($callback)>

Set the server into e

Clone-Fast ( J/JJ/JJORE/Clone-Fast-0.96.tar.gz, JJORE, 2012; MetaCPAN )

Clone-Fast/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

Image-Info-XS ( J/JU/JUNKER/Image-Info-XS-0.1.8.tar.gz, JUNKER, 2012; MetaCPAN )

Image-Info-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

Qt4 ( C/CB/CBUREL/Qt4-0.99.0.tar.bz2, CBUREL, 2012; MetaCPAN )

Qt4/qtcore/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 comment