Yet Another CPAN Grep

Algorithm-Heapify-XS ( Y/YV/YVES/Algorithm-Heapify-XS-0.04.tar.gz, YVES, 2018; MetaCPAN )

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

Footprintless ( L/LT/LTHEISEN/Footprintless-1.29.tar.gz, LTHEISEN, 2018; MetaCPAN )

Footprintless/lib/Footprintless/Util.pm ( view source; MetaCPAN )

21/slurp.html
    return $file
        ? do { local ( @ARGV, $/ ) = $file; <> }
        : do { local $/; <STDIN> };
}

sub spurt {
    my ( $content, $file, %options ) = @_;
    my $write_mode = $opti

Regexp-Util ( T/TO/TOBYINK/Regexp-Util-0.005.tar.gz, TOBYINK, 2018; MetaCPAN )

Regexp-Util/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

TestML1 ( I/IN/INGY/TestML1-0.57.tar.gz, INGY, 2018; MetaCPAN )

TestML1/lib/TestML1/Library/Standard.pm ( view source; MetaCPAN )

    open FILE, $file or die "Can't open $file for input in " . Cwd::cwd;
#     my $text = do { local $/; <FILE> };
#     close FILE;
#     return str($text);
# }

# sub Pass {
#     my ($self, @args)

SkewHeap ( J/JE/JEFFOBER/SkewHeap-0.05.tar.gz, JEFFOBER, 2018; MetaCPAN )

SkewHeap/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-Skein ( E/ER/ERWANMAS/Digest-Skein-0.10.zip, ERWANMAS, 2018; MetaCPAN )

Digest-Skein/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-Callsite ( R/RO/ROCKY/Devel-Callsite-1.0.1.tar.gz, ROCKY, 2018; MetaCPAN )

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

Audio-Scan ( A/AG/AGRUNDMA/Audio-Scan-1.01.tar.gz, AGRUNDMA, 2018; MetaCPAN )

Audio-Scan/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

Digest-HighwayHash ( M/MG/MGV/Digest-HighwayHash-0.002.tar.gz, MGV, 2018; MetaCPAN )

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

Lingua-RU-Money-XS ( I/IM/IMUN/Lingua-RU-Money-XS-0.08.tar.gz, IMUN, 2018; MetaCPAN )

Lingua-RU-Money-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

Sort-Naturally-XS ( S/SE/SERVAL/Sort-Naturally-XS-0.7.9.tar.gz, SERVAL, 2018; MetaCPAN )

Sort-Naturally-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

Mac-Errors ( B/BD/BDFOY/Mac-Errors-1.192.tar.gz, BDFOY, 2018; MetaCPAN )

Mac-Errors/lib/Mac/Errors.pm ( view source; MetaCPAN )

onstants();

sub constants {
	seek DATA, 0, 0; # this reads the entire script
	my $data = do { local $/; <DATA> };
	while( $data =~ m|=item (\w+)(?:\s+([^\n]+))?\n\s+?=cut\s+sub \1 \{ (-?\d+) \}|g ) {

Unix-Statgrab ( R/RE/REHSACK/Unix-Statgrab-0.112.tar.gz, REHSACK, 2018; MetaCPAN )

Unix-Statgrab/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

FFI-Platypus-Lang-CPP-Demangle-XS ( P/PL/PLICEASE/FFI-Platypus-Lang-CPP-Demangle-XS-0.03.tar.gz, PLICEASE, 2018; MetaCPAN )

FFI-Platypus-Lang-CPP-Demangle-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

Set-IntervalTree ( S/SL/SLOYD/Set-IntervalTree-0.12.tar.gz, SLOYD, 2018; MetaCPAN )

Set-IntervalTree/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

List-SomeUtils-XS ( D/DR/DROLSKY/List-SomeUtils-XS-0.58.tar.gz, DROLSKY, 2018; MetaCPAN )

List-SomeUtils-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

PSGRAPH ( K/KE/KENOWEN/PSGRAPH-0.051.tar.gz, KENOWEN, 2018; MetaCPAN )

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

SDL ( F/FR/FROGGS/SDL-2.548.tar.gz, FROGGS, 2018; MetaCPAN )

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

CGI-CurlLog ( J/JA/JACOBG/CGI-CurlLog-0.03.tar.gz, JACOBG, 2018; MetaCPAN )

CGI-CurlLog/lib/CGI/CurlLog.pm ( view source; MetaCPAN )

: $ENV{HTTP_USER_AGENT}\" ";
    # }
    if ($ENV{"CONTENT_LENGTH"}) {
        my $input = do {local $/; <STDIN>};
        close STDIN;
        open STDIN, "<", \$input;
        my $input2 = $input;

Devel-Debug-DBGp ( M/MB/MBARBON/Devel-Debug-DBGp-0.22.tar.gz, MBARBON, 2018; MetaCPAN )

Devel-Debug-DBGp/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