Yet Another CPAN Grep

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

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

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

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

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

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

GSSAPI ( A/AG/AGROLMS/GSSAPI-0.28.tar.gz, AGROLMS, 2010; MetaCPAN )

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

Plex ( S/SC/SCIO/Plex.tar.gz, SCIO, 2010; MetaCPAN )

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

File-fgets ( M/MS/MSCHWERN/File-fgets-v0.0.4.tar.gz, MSCHWERN, 2010; MetaCPAN )

File-fgets/lib/File/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

Language-Befunge-Vector-XS ( J/JQ/JQUELIN/Language-Befunge-Vector-XS-1.1.1.tar.gz, JQUELIN, 2010; MetaCPAN )

Language-Befunge-Vector-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

Text-Fracture ( J/JN/JNW/Text-Fracture-1.02.tar.gz, JNW, 2010; MetaCPAN )

Text-Fracture/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-FP56x1xor ( J/JN/JNW/Digest-FP56x1xor-0.15.tar.gz, JNW, 2010; MetaCPAN )

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

FTDI-D2XX ( M/MV/MVOELKER/FTDI/FTDI-D2XX-0.06.tar.gz, MVOELKER, 2010; MetaCPAN )

FTDI-D2XX/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

Internals-GraphArenas ( J/JJ/JJORE/Internals-GraphArenas-0.01.tar.gz, JJORE, 2010; MetaCPAN )

Internals-GraphArenas/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-Personality ( S/SC/SCHWIGON/linux-personality/Linux-Personality-0.01.tar.gz, SCHWIGON, 2010; MetaCPAN )

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