Yet Another CPAN Grep

Data-AMF-XS ( T/TY/TYPESTER/Data-AMF-XS-0.01_02.tar.gz, TYPESTER, 2010; MetaCPAN )

Data-AMF-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

Bit-Grep ( S/SA/SALVA/Bit-Grep-0.01.tar.gz, SALVA, 2010; MetaCPAN )

Bit-Grep/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

Net-LDAPxs ( P/PA/PANYU/Net-LDAPxs-1.31.tar.gz, PANYU, 2010; MetaCPAN )

Net-LDAPxs/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-FNV ( J/JW/JWEBSTER/Digest-FNV-2.00.tar.gz, JWEBSTER, 2010; MetaCPAN )

Digest-FNV/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

Goto-Cached ( C/CH/CHOCOLATE/Goto-Cached-0.22.tar.gz, CHOCOLATE, 2010; MetaCPAN )

Goto-Cached/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

PPI-XS-Tokenizer ( S/SE/SEMUELF/PPI-XS-Tokenizer-0.03.tar.gz, SEMUELF, 2010; MetaCPAN )

PPI-XS-Tokenizer/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

DBM-Deep-Blue ( P/PR/PRBRENAN/DBM-Deep-Blue-1.02.tar.gz, PRBRENAN, 2010; MetaCPAN )

DBM-Deep-Blue/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

Lingua-EN-Bigram ( E/EM/EMORGAN/Lingua-EN-Bigram-0.03.tar.gz, EMORGAN, 2010; MetaCPAN )

Lingua-EN-Bigram/bin/ngrams.pl ( view source; MetaCPAN )

 <file>\n";
	exit;
	
}

# slurp
open F, $file or die "Can't open input: $!\n";
my $text = do { local $/; <F> };
close F;

# build n-grams
my $ngrams = Lingua::EN::Bigram->new;
$ngrams->text( $text );

Image-JpegTran ( M/MO/MONS/Image-JpegTran-0.02.tar.gz, MONS, 2010; MetaCPAN )

Image-JpegTran/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

Sys-Mlockall ( C/CR/CRAKRJACK/Sys-Mlockall-0.01.tar.gz, CRAKRJACK, 2010; MetaCPAN )

Sys-Mlockall/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

Data-UUID-LibUUID ( N/NU/NUFFIN/Data-UUID-LibUUID-0.05.tar.gz, NUFFIN, 2010; MetaCPAN )

Data-UUID-LibUUID/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

DBIx-QueryByName ( E/ER/ERWAN/DBIx-QueryByName-0.18.tar.gz, ERWAN, 2010; MetaCPAN )

DBIx-QueryByName/lib/DBIx/QueryByName.pm ( view source; MetaCPAN )

    open FP, "< $file" or $log->logcroak("failed to open [$file]: $!");
        my $xml = do { local $/; <FP> };
        close FP;

        DBIx::QueryByName::FromXML::load( $self->_query_pool, $sessi

OpenOffice-UNO ( M/MB/MBARBON/OpenOffice-UNO-0.07.tar.gz, MBARBON, 2010; MetaCPAN )

OpenOffice-UNO/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

IPC-ScoreBoard ( O/OP/OPI/IPC-ScoreBoard-0.05.tar.gz, OPI, 2010; MetaCPAN )

IPC-ScoreBoard/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

Text-Template-Library ( O/OP/OPI/Text-Template-Library-0.04.tar.gz, OPI, 2010; MetaCPAN )

Text-Template-Library/lib/Text/Template/Base.pm ( view source; MetaCPAN )

;
  unless (open F, $fn) {
    $ERROR = "Couldn't open file $fn: $!";
    return undef;
  }
  local $/;
  <F>;
}

sub _is_clean {
  my $z;
  eval { ($z = join('', @_)), eval '#' . substr($z,0,0); 1 }

Mac-MotionSensor ( R/RG/RGE/Mac-MotionSensor-0.02.tar.gz, RGE, 2010; MetaCPAN )

Mac-MotionSensor/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

Linux-Pdeathsig ( Z/ZE/ZEROHP/Linux-Pdeathsig-0.10.tar.gz, ZEROHP, 2010; MetaCPAN )

Linux-Pdeathsig/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

Socket-Linux ( S/SA/SALVA/Socket-Linux-0.01.tar.gz, SALVA, 2010; MetaCPAN )

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

Ser-BinRPC ( T/TM/TMA/Ser-BinRPC-0.01.tar.gz, TMA, 2010; MetaCPAN )

Ser-BinRPC/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

CMS-MediaWiki ( R/RE/RETOH/CMS/CMS-MediaWiki-0.8014.tar.gz, RETOH, 2010; MetaCPAN )

CMS-MediaWiki/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