Yet Another CPAN Grep

XML-Hash-XS ( Y/YO/YOREEK/XML-Hash-XS-0.62.tar.gz, YOREEK, 2024; MetaCPAN )

XML-Hash-XS/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

Math-NLopt ( D/DJ/DJERIUS/Math-NLopt-0.08-TRIAL.tar.gz, DJERIUS, 2024; MetaCPAN )

Math-NLopt/lib/Math/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

SPVM ( K/KI/KIMOTO/SPVM-0.990033.tar.gz, KIMOTO, 2024; MetaCPAN )

SPVM/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-Minify-XS ( R/RR/RRWO/Text-Minify-XS-v0.7.5.tar.gz, RRWO, 2024; MetaCPAN )

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

FFI-Platypus ( P/PL/PLICEASE/FFI-Platypus-2.10.tar.gz, PLICEASE, 2024; MetaCPAN )

FFI-Platypus/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/XS comm

Tree-RB-XS ( N/NE/NERDVANA/Tree-RB-XS-0.15.tar.gz, NERDVANA, 2024; MetaCPAN )

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

Test-Smoke ( C/CO/CONTRA/Test-Smoke-1.83.tar.gz, CONTRA, 2024; MetaCPAN )

Test-Smoke/lib/Test/Smoke/Policy.pm ( view source; MetaCPAN )

sif ( ref $srcpath eq 'GLOB' ) {

        *POLICY = *$srcpath;
        $self->{_policy} = do { local $/; <POLICY> };
        $vmsg = "anonymous filehandle";

    } else {
        $srcpath = File::Spec

);
            $vmsg = "default content";
        } else {
            $self->{_policy} = do { local $/; <POLICY> };
            close POLICY;
            $vmsg = $p_name;
        }

    }
    $self->

Test-Smoke ( C/CO/CONTRA/Test-Smoke-1.83.tar.gz, CONTRA, 2024; MetaCPAN )

Test-Smoke/lib/Test/Smoke/Reporter.pm ( view source; MetaCPAN )

ef $nameorref eq 'GLOB' ) {
        *SMOKERSLT = *$nameorref;
        $self->{_outfile} = do { local $/; <SMOKERSLT> };
        $vmsg = "from anonymous filehandle";
    } else {
        if ( $nameorre

Test-Smoke ( C/CO/CONTRA/Test-Smoke-1.83.tar.gz, CONTRA, 2024; MetaCPAN )

Test-Smoke/lib/Test/Smoke/BuildCFG.pm ( view source; MetaCPAN )

ef $nameorref eq 'GLOB' ) {
        *BUILDCFG = *$nameorref;
        $self->{_buildcfg} = do { local $/; <BUILDCFG> };
        $vmsg = "anonymous filehandle";
    } else {
        if ( $nameorref ) {

 $bcfg_file);
    my $content;
    if (open(my $fh, '<', $fullname)) {
        $content = do { local $/; <$fh> };
        close($fh);
    }
    else {
        warn("Cannot open($fullname): $!");

Test-Smoke ( C/CO/CONTRA/Test-Smoke-1.83.tar.gz, CONTRA, 2024; MetaCPAN )

Test-Smoke/lib/Test/Smoke/Mailer/Base.pm ( view source; MetaCPAN )

;

    local *REPORT;
    if ( open REPORT, "< $self->{file}" ) {
        $self->{body} = do { local $/; <REPORT> };
        close REPORT;
    } else {
        require Carp;
        Carp::croak( "Cann

Test-Smoke ( C/CO/CONTRA/Test-Smoke-1.83.tar.gz, CONTRA, 2024; MetaCPAN )

Test-Smoke/lib/Test/Smoke/Util.pm ( view source; MetaCPAN )

rn if ! defined $logfile;

    open my $fh, "<", $logfile  or return undef;
    my $log = do { local $/; <$fh> };
    close $fh;

    my $es = eval { decode("utf-8",  $log, Encode::FB_CROAK ) };
    $

;
    local *PATCHLEVEL;
    if ( open PATCHLEVEL, "< $file" ) {
        my $patchlevel = do { local $/; <PATCHLEVEL> };
        close PATCHLEVEL;

        if ( $patchlevel =~ /^#define PATCHLEVEL\s+(

Zonemaster-LDNS ( Z/ZN/ZNMSTR/Zonemaster-LDNS-4.1.0.tar.gz, ZNMSTR, 2024; MetaCPAN )

Zonemaster-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

Test-Smoke ( C/CO/CONTRA/Test-Smoke-1.83.tar.gz, CONTRA, 2024; MetaCPAN )

Test-Smoke/lib/Test/Smoke/Patcher.pm ( view source; MetaCPAN )

ent';
    } elsif ( ref $pfile eq 'GLOB' ) {
        *PATCH = *$pfile;
        $content = do { local $/; <PATCH> };
        $self->{pfinfo} ||= 'file content';
    } else {
        my $full_name = Fil


            Carp::croak( "Cannot open '$full_name': $!" );
        };
        $content = do { local $/; <PATCH> };
        close PATCH;
    }

    $self->{v} and print "Get patch from $self->{pfinfo}

Test-Smoke ( C/CO/CONTRA/Test-Smoke-1.83.tar.gz, CONTRA, 2024; MetaCPAN )

Test-Smoke/bin/smokestatus.pl ( view source; MetaCPAN )

    my $status;
            if ( open REPORT, "< $a_rpt" ) {
                my $report = do { local $/; <REPORT> };
                close REPORT;
                my $summary = ( parse_report_Config(

Sub-Name ( E/ET/ETHER/Sub-Name-0.28.tar.gz, ETHER, 2024; MetaCPAN )

Sub-Name/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

Gzip-Libdeflate ( B/BK/BKB/Gzip-Libdeflate-0.10_01.tar.gz, BKB, 2024; MetaCPAN )

Gzip-Libdeflate/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

OpenMP-Simple ( O/OO/OODLER/OpenMP-Simple-0.1.7.tar.gz, OODLER, 2024; MetaCPAN )

OpenMP-Simple/share/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

Extism ( E/EX/EXTISM/Extism-v0.3.0.tar.gz, EXTISM, 2024; MetaCPAN )

Extism/lib/Extism/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

Cpanel-JSON-XS ( R/RU/RURBAN/Cpanel-JSON-XS-4.39.tar.gz, RURBAN, 2024; MetaCPAN )

Cpanel-JSON-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-3Space ( N/NE/NERDVANA/Math-3Space-0.008.tar.gz, NERDVANA, 2024; MetaCPAN )

Math-3Space/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