Yet Another CPAN Grep

Archive-Extract-Libarchive ( L/LB/LBROCARD/Archive-Extract-Libarchive-0.38.tar.gz, LBROCARD, 2012; MetaCPAN )

Archive-Extract-Libarchive/lib/Archive/Extract/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

libPam-Perl ( B/BH/BHILDRED/libPam-Perl-0.008.tar.gz, BHILDRED, 2012; MetaCPAN )

libPam-Perl/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

XML-RPC-Fast ( M/MO/MONS/XML-RPC-Fast-0.8.tar.gz, MONS, 2012; MetaCPAN )

XML-RPC-Fast/README.pod ( view source; MetaCPAN )

code
        #internal_encoding => 'koi8-r', # not supported for now
    );
    my $xml = do { local $/; <STDIN> };
    length($xml) == $ENV{CONTENT_LENGTH} or warn "Content-Length differs from actual

Audio-C4Stream-Mixer ( C/CF/CFORPC/Audio-C4Stream-Mixer-1.01.tar.gz, CFORPC, 2012; MetaCPAN )

Audio-C4Stream-Mixer/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-Tokenizer ( S/SA/SAMSK/Text-Tokenizer-0.4.6.tar.gz, SAMSK, 2012; MetaCPAN )

Text-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 comment

XML-RPC-Fast ( M/MO/MONS/XML-RPC-Fast-0.8.tar.gz, MONS, 2012; MetaCPAN )

XML-RPC-Fast/lib/XML/RPC/Fast.pm ( view source; MetaCPAN )

code
        #internal_encoding => 'koi8-r', # not supported for now
    );
    my $xml = do { local $/; <STDIN> };
    length($xml) == $ENV{CONTENT_LENGTH} or warn "Content-Length differs from actual

Thread-IID ( W/WR/WROG/Thread-IID-0.04.tar.gz, WROG, 2012; MetaCPAN )

Thread-IID/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

Git-XS ( I/IN/INGY/Git-XS-0.02.tar.gz, INGY, 2011; MetaCPAN )

Git-XS/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

SOOT ( S/SM/SMUELLER/SOOT-0.17.tar.gz, SMUELLER, 2011; MetaCPAN )

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

Dendral-HTTP-Response ( J/JU/JUNKER/Dendral-HTTP-Response-0.1.0.tar.gz, JUNKER, 2011; MetaCPAN )

Dendral-HTTP-Response/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

Redis-Parser-XS ( Z/ZZ/ZZZ/Redis-Parser-XS-0.02.tar.gz, ZZZ, 2011; MetaCPAN )

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

Dendral-HTTP-Request ( J/JU/JUNKER/Dendral-HTTP-Request-0.1.5.tar.gz, JUNKER, 2011; MetaCPAN )

Dendral-HTTP-Request/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

MP3-Cut-Gapless ( A/AG/AGRUNDMA/MP3-Cut-Gapless-0.03.tar.gz, AGRUNDMA, 2011; MetaCPAN )

MP3-Cut-Gapless/include/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

Tie-Hash-LRU ( Z/ZZ/ZZZ/Tie-Hash-LRU-0.05.tar.gz, ZZZ, 2011; MetaCPAN )

Tie-Hash-LRU/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

Runops-Recorder ( C/CL/CLAESJAC/Runops-Recorder-0.09.tar.gz, CLAESJAC, 2011; MetaCPAN )

Runops-Recorder/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

Math-ConvexHull-MonotoneChain ( S/SM/SMUELLER/Math-ConvexHull-MonotoneChain-0.01.tar.gz, SMUELLER, 2011; MetaCPAN )

Math-ConvexHull-MonotoneChain/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-OpenID-Server ( R/RO/ROBN/Net-OpenID-Server-1.09.tar.gz, ROBN, 2011; MetaCPAN )

Net-OpenID-Server/lib/Net/OpenID/Server.pm ( view source; MetaCPAN )

ldn't open key file for reading")
            unless open(KF, $mval);
        $contents = do { local $/; <KF>; };
        close KF;
    } else {
        $contents = $mval;
    }

    return $self->_fa

Store-Opaque ( S/SM/SMUELLER/Store-Opaque-0.03.tar.gz, SMUELLER, 2011; MetaCPAN )

Store-Opaque/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

Algorithm-KNN-XS ( N/NE/NEIKON/Algorithm-KNN-XS-0.01001.tar.gz, NEIKON, 2011; MetaCPAN )

Algorithm-KNN-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

JavaScript-JSLint ( S/SP/SPJW/JavaScript-JSLint-0.07.tar.gz, SPJW, 2011; MetaCPAN )

JavaScript-JSLint/lib/JavaScript/JSLint.pm ( view source; MetaCPAN )

ows-specific globals should be predefined'},
);



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

    sub _get_context {
        unless ( $ctx ) {
            $ctx = JavaScript::Runt