view release on metacpan or  search on metacpan

t/archive.misc.t  view on Meta::CPAN

  RE_debian_archive_binary
  RE_debian_archive_dsc
  RE_debian_archive_changes                 |;
use Test::More;

my %askdebian;
if(
  $ENV{RCD_ASK_DEBIAN} &&
 ($ENV{RCD_ASK_DEBIAN} eq q|all| ||
  $ENV{RCD_ASK_DEBIAN} =~ m{\bbinary\b}) ) {
    local $/ = '';
    my $lists = q|/var/lib/apt/lists|;
    opendir my $dh, $lists                                                  or
      die
        qq|(ASK_DEBIAN) was requested, however (opendir) ($lists) | .
        qq|has failed ($!), most probably, that's not Debian at all|;
    while( my $fn = readdir $dh )    {
        $fn =~ m{.*_Packages$}                                        or next;
        open my $fh, q|<|, qq|$lists/$fn|;
        while( my $record = <$fh> ) {
            $record =~ m{^Filename:\s.+/([^/\n]+)$}m                        or

t/archive.source.t  view on Meta::CPAN

        RE_debian_archive_source_3_0_native
         RE_debian_archive_source_3_0_quilt
                RE_debian_archive_patch_1_0
          RE_debian_archive_patch_3_0_quilt |;
use Test::More;

my %askdebian;
if(                    $ENV{RCD_ASK_DEBIAN} &&
         ($ENV{RCD_ASK_DEBIAN} eq q|all| ||
  $ENV{RCD_ASK_DEBIAN} =~ m{\bsource\b}) )                      {
    local $/ = '';
    my $lists = q|/var/lib/apt/lists|;
    opendir my $dh, $lists                                                  or
      die
        qq|(ASK_DEBIAN) was requested, however (opendir) ($lists) | .
        qq|has failed ($!), most probably, that's not Debian at all|;
    while( my $fn = readdir $dh )                              {
        $fn =~ m{.*_Sources$}                                         or next;
        open my $fh, q|<|, qq|$lists/$fn|;
        while( my $record = <$fh> )                           {
            $record =~ m{\nFiles:\h*\n((?:\s+[^\n]+\n)+)}s                  or