Yet Another CPAN Grep

Sort-Bucket ( N/NC/NCLEATON/Sort-Bucket-0.02.tar.gz, NCLEATON, 2010; MetaCPAN )

Sort-Bucket/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

Erlang-Interface ( H/HA/HAMANO/Erlang-Interface-0.03.tar.gz, HAMANO, 2010; MetaCPAN )

Erlang-Interface/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

Device-Velleman-K8055-libk8055 ( K/KO/KOST/Device-Velleman-K8055-libk8055-0.04.tar.gz, KOST, 2010; MetaCPAN )

Device-Velleman-K8055-libk8055/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

Astro-Hipparcos ( S/SM/SMUELLER/Astro-Hipparcos-0.09.tar.gz, SMUELLER, 2010; MetaCPAN )

Astro-Hipparcos/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

EFL ( A/AF/AFLOTT/EFL-0.501.tar.gz, AFLOTT, 2010; MetaCPAN )

EFL/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-StackBlech ( J/JJ/JJORE/Devel-StackBlech-0.06.tar.gz, JJORE, 2009; MetaCPAN )

Devel-StackBlech/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-Replicate ( K/KA/KAZUHO/DBIx-Replicate-0.04.tar.gz, KAZUHO, 2009; MetaCPAN )

DBIx-Replicate/DBIx-Replicate-0.04/inc/Module/Install.pm ( view source; MetaCPAN )

_[0]): $!";
	} else {
		open( FH, "< $_[0]"  ) or die "open($_[0]): $!";
	}
	my $string = do { local $/; <FH> };
	close FH or die "close($_[0]): $!";
	return $string;
}

sub _readperl {
	my $string =

CSS-Croco ( G/GU/GUGU/CSS-Croco-0.09.tar.gz, GUGU, 2009; MetaCPAN )

CSS-Croco/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-Replicate ( K/KA/KAZUHO/DBIx-Replicate-0.04.tar.gz, KAZUHO, 2009; MetaCPAN )

DBIx-Replicate/DBIx-Replicate-0.04/inc/Module/Install/Makefile.pm ( view source; MetaCPAN )

akefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
	my $makefile = do { local $/; <MAKEFILE> };
	close MAKEFILE or die $!;

	$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\),

Astro-MapProjection ( S/SM/SMUELLER/Astro-MapProjection-0.01.tar.gz, SMUELLER, 2009; MetaCPAN )

Astro-MapProjection/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-GSL-Linalg-SVD ( D/DS/DSTH/Math-GSL-Linalg-SVD-0.0.2.tar.gz, DSTH, 2009; MetaCPAN )

Math-GSL-Linalg-SVD/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

Lexical-SingleAssignment ( N/NU/NUFFIN/Lexical-SingleAssignment-0.01.tar.gz, NUFFIN, 2009; MetaCPAN )

Lexical-SingleAssignment/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-GpgME ( F/FL/FLORA/Crypt-GpgME-0.09.tar.gz, FLORA, 2009; MetaCPAN )

Crypt-GpgME/perl_glue/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

String-Numeric-XS ( C/CH/CHANSEN/String-Numeric-XS-0.9.tar.gz, CHANSEN, 2009; MetaCPAN )

String-Numeric-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

PerlMaple ( A/AG/AGENT/PerlMaple-0.07.tar.gz, AGENT, 2009; MetaCPAN )

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

File-Extractor ( F/FL/FLORA/File-Extractor-0.04.tar.gz, FLORA, 2009; MetaCPAN )

File-Extractor/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

Mozilla-DOM-ComputedStyle ( B/BO/BOSU/Mozilla-DOM-ComputedStyle-0.05.tar.gz, BOSU, 2009; MetaCPAN )

Mozilla-DOM-ComputedStyle/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

Sub-Call-Recur ( N/NU/NUFFIN/Sub-Call-Recur-0.04.tar.gz, NUFFIN, 2009; MetaCPAN )

Sub-Call-Recur/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

Magical-Hooker-Decorate ( N/NU/NUFFIN/Magical-Hooker-Decorate-0.03.tar.gz, NUFFIN, 2009; MetaCPAN )

Magical-Hooker-Decorate/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-Carbon ( C/CN/CNANDOR/Mac-Carbon-0.82.tar.gz, CNANDOR, 2009; MetaCPAN )

Mac-Carbon/Files/Files.pm ( view source; MetaCPAN )

 constants {
	my @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 \(\) { (\S+) }|g) {