Yet Another CPAN Grep

Barcode-ZBar ( T/TI/TIMLEGGE/Barcode-ZBar-0.10.tar.gz, TIMLEGGE, 2022; MetaCPAN )

Barcode-ZBar/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

AnyEvent-Fork ( M/ML/MLEHMANN/AnyEvent-Fork-1.32.tar.gz, MLEHMANN, 2022; MetaCPAN )

AnyEvent-Fork/Fork.pm ( view source; MetaCPAN )

module (or program):

   use AnyEvent::Fork;

   AnyEvent::Fork
      ->new
      ->eval (do { local $/; <DATA> })
      ->run ("doit", sub { ... });

   __DATA__

   sub doit {
      ... do something

Set-Object ( R/RU/RURBAN/Set-Object-1.42.tar.gz, RURBAN, 2022; MetaCPAN )

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

SDL2-FFI ( S/SA/SANKO/SDL2-FFI-0.08.tar.gz, SANKO, 2021; MetaCPAN )

SDL2-FFI/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

DNS-LDNS ( E/ER/ERIKOEST/DNS-LDNS-0.63.tar.gz, ERIKOEST, 2021; MetaCPAN )

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

Archive-Ar-Libarchive ( P/PL/PLICEASE/Archive-Ar-Libarchive-2.09.tar.gz, PLICEASE, 2021; MetaCPAN )

Archive-Ar-Libarchive/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

Lab-Zhinst ( A/AM/AMBA/Lab-Zhinst-2.04.tar.gz, AMBA, 2021; MetaCPAN )

Lab-Zhinst/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-Libwebsockets ( F/FE/FELIPE/Net-Libwebsockets-0.02.tar.gz, FELIPE, 2021; MetaCPAN )

Net-Libwebsockets/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

MToken ( A/AB/ABALAMA/MToken-1.04.tar.gz, ABALAMA, 2021; MetaCPAN )

MToken/lib/MToken/DeviceSkel.pm ( view source; MetaCPAN )

ipart pool of files
    my $self = shift;
    my $pos =  tell DATA;
    my $data = scalar(do { local $/; <DATA> });
    seek DATA, $pos, 0;
    $self->{pools}{(SIGNATURE)} = $data;
    $self->maybe::n

X11-GLX ( N/NE/NERDVANA/X11-GLX-0.06.tar.gz, NERDVANA, 2021; MetaCPAN )

X11-GLX/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

Mojolicious-Command-generate-lexicon ( U/UN/UNDEF/Mojolicious-Command-generate-lexicon-0.998.tar.gz, UNDEF, 2021; MetaCPAN )

Mojolicious-Command-generate-lexicon/lib/Mojolicious/Command/generate/lexicon.pm ( view source; MetaCPAN )

e (@templates) {
        open F, $file or die "Unable to open $file: $!";
        my $t = do { local $/; <F> };
        close F;

        # get lexemes
        print "Parsing $file \n" if $verbose;

HTML-Escape ( T/TO/TOKUHIROM/HTML-Escape-1.11.tar.gz, TOKUHIROM, 2021; MetaCPAN )

HTML-Escape/lib/HTML/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

URI-Fast ( J/JE/JEFFOBER/URI-Fast-0.55.tar.gz, JEFFOBER, 2021; MetaCPAN )

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

Storable ( N/NW/NWCLARK/Storable-3.25.tar.gz, NWCLARK, 2021; MetaCPAN )

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

oCLI ( S/SY/SYMKAT/oCLI-0.001.tar.gz, SYMKAT, 2021; MetaCPAN )

oCLI/lib/oCLI/Request.pm ( view source; MetaCPAN )

($command,1)
                or die "Failed to read $command: $!";
            $command = do { local $/; <$lf> };
            close $lf;
        } 
        push @{$data->{args}}, $command;
    }

   or die "Failed to read $argument: $!";
                $data->{settings}->{$command} = do { local $/; <$lf> };
                close $lf;
            } else {
                # If we have nothing,

argument ];
                }
            }
        }
    }

    # Process STDIN
    if ( ! -t STDIN ) {
        $data->{stdin} = do { local $/; <STDIN> };
    }

    return $class->new($data);
}

1;

Crypt-LibSCEP ( M/MR/MRSCOTTY/Crypt-LibSCEP-0.09.tar.gz, MRSCOTTY, 2021; MetaCPAN )

Crypt-LibSCEP/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

TOML-XS ( F/FE/FELIPE/TOML-XS-0.05.tar.gz, FELIPE, 2021; MetaCPAN )

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

Dist-Inkt ( T/TO/TOBYINK/Dist-Inkt-0.026.tar.gz, TOBYINK, 2021; MetaCPAN )

Dist-Inkt/lib/Dist/Inkt/Role/WriteMakefilePL.pm ( view source; MetaCPAN )

LE, "< $file" or die "FixMakefile: Couldn't open $file: $!; bailing out";
	my $makefile = do { local $/; <MAKEFILE> };
	close MAKEFILE or die $!;
	
	$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\),

UV ( P/PE/PEVANS/UV-2.000.tar.gz, CAPOEIRAB, 2021; MetaCPAN )

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

JSON-Create ( B/BK/BKB/JSON-Create-0.35.tar.gz, BKB, 2021; MetaCPAN )

JSON-Create/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