Yet Another CPAN Grep

Memcached-libmemcached ( S/SE/SEANBURKE/Memcached-libmemcached-1.001801.tar.gz, SEANBURKE, 2015; MetaCPAN )

Memcached-libmemcached/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

TurboXSLT ( G/GR/GRIBUSER/TurboXSLT-1.2.tar.gz, GRIBUSER, 2015; MetaCPAN )

TurboXSLT/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-WBXML ( I/IV/IVANYCH/XML-WBXML-0.09.tar.gz, IVANYCH, 2015; MetaCPAN )

XML-WBXML/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

Email-Forward-Dispatch ( H/HI/HIROBANEX/Email-Forward-Dispatch-0.04.tar.gz, HIROBANEX, 2015; MetaCPAN )

Email-Forward-Dispatch/lib/Email/Forward/Dispatch.pm ( view source; MetaCPAN )

gs{forward_cb}->($default_hook,$parsed); };
        }
    }

    my $mail = $args{mail} || do {local $/; <STDIN>; } || die 'you must set mail option or STDIN !';

    my $self = bless +{
        email



    or 

    my $dispatcher = Email::Forward::Dispatch->new(
        mail      => scalar do {local $/; <STDIN>; },
        hooks_dir => "MyMailNotify::Hooks",
    );

    $dispatcher->run;


    #in

Linux-CPUAffinity ( J/JI/JIRO/Linux-CPUAffinity-0.01.tar.gz, JIRO, 2015; MetaCPAN )

Linux-CPUAffinity/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-Vector-Real-XS ( S/SA/SALVA/Math-Vector-Real-XS-0.10.tar.gz, SALVA, 2015; MetaCPAN )

Math-Vector-Real-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

Couchbase ( M/MN/MNUNBERG/Couchbase-2.0.3.tar.gz, MNUNBERG, 2015; MetaCPAN )

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

Crypt-XXTEA_XS ( J/JA/JAHIY/Crypt-XXTEA_XS-0.0101.tar.gz, JAHIY, 2015; MetaCPAN )

Crypt-XXTEA_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

Crypt-TEA_XS ( J/JA/JAHIY/Crypt-TEA_XS-0.01.tar.gz, JAHIY, 2015; MetaCPAN )

Crypt-TEA_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

Math-Int128 ( S/SA/SALVA/Math-Int128-0.22.tar.gz, SALVA, 2015; MetaCPAN )

Math-Int128/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-Histogram ( S/SM/SMUELLER/Math-Histogram-1.04.tar.gz, SMUELLER, 2015; MetaCPAN )

Math-Histogram/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-Prctl ( S/SE/SEVEAS/Linux-Prctl-1.6.0.tar.gz, SEVEAS, 2015; MetaCPAN )

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

Tree-Binary-XS ( Y/YO/YOANLIN/Tree-Binary-XS-0.03.tar.gz, YOANLIN, 2015; MetaCPAN )

Tree-Binary-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

Net-LDNS ( C/CD/CDYBED/Net-LDNS-0.75.tar.gz, CDYBED, 2015; MetaCPAN )

Net-LDNS/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-Statistic ( I/IG/IGORK/Algorithm-Statistic-0.04.tar.gz, IGORK, 2015; MetaCPAN )

Algorithm-Statistic/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

RT-Extension-IncrementPriority ( J/JR/JRANDALL/RT-Extension-IncrementPriority-1.0.0.tar.gz, JRANDALL, 2015; MetaCPAN )

RT-Extension-IncrementPriority/RT-Extension-IncrementPriority-0.01/inc/Module/Install.pm ( view source; MetaCPAN )

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

RT-Extension-IncrementPriority ( J/JR/JRANDALL/RT-Extension-IncrementPriority-1.0.0.tar.gz, JRANDALL, 2015; MetaCPAN )

RT-Extension-IncrementPriority/RT-Extension-IncrementPriority-0.01/inc/Module/Install/Makefile.pm ( view source; MetaCPAN )

le: Couldn't open $makefile_name: $!";
	eval { flock MAKEFILE, LOCK_EX };
	my $makefile = do { local $/; <MAKEFILE> };

	$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
	$makefile =~

Net-OnlineCode ( D/DM/DMALONE/Net-OnlineCode-004/Net-OnlineCode-0.04.tar.gz, DMALONE, 2015; MetaCPAN )

Net-OnlineCode/clib/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

Software-GenoScan ( W/WO/WOLFTOWER/Software-GenoScan-v1.0.4.tar.gz, WOLFTOWER, 2015; MetaCPAN )

Software-GenoScan/Software/GenoScan/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-Fast ( D/DM/DMITRI/Bit-Fast-0.01.tar.gz, DMITRI, 2015; MetaCPAN )

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