view release on metacpan or  search on metacpan

t/71dumpoldversions.t  view on Meta::CPAN

  opendir my $dh, $dumpdir
    or die "Cannot open $dumpdir: $!";
  my @vers_files = map {/^dumps\.(.+)\.txt$/?[$1, $_]:()} readdir($dh);

  foreach my $version_file (@vers_files) {
    my ($version, $file) = @$version_file;
    $file = File::Spec->catfile($dumpdir, $file);
    open my $fh, "<", $file or die "Cannot open file for reading: $!";
    binmode $fh;
    local $/ = ""; # paragraph mode
    my $dumps = $dump_data{$version} = {};
    while (<$fh>) {
      my ($type, $data) = split /:/, $_, 2;
      chomp $data;
      $data .= "\n" if $type =~ /^yaml$/i;
      #warn "$type:'$data'";
      next if $skip_native_dumps;
      $dumps->{$type} = $data;
    }
    close $fh;