view release on metacpan or  search on metacpan

private/MakeUtil.pm  view on Meta::CPAN

#
#
# sub doUpDown
# {
#     my $our_sub = shift;
#     my $warn_sub = shift;
#
#     return if -d $_[0];
#
#     local ($^I) = ($^O eq 'VMS') ? "_bak" : ".bak";
#     local (@ARGV) = shift;
#
#     while (<>)
#     {
#         print, last if /^__(END|DATA)__/ ;
#
#         &{ $our_sub }() if $our_sub ;
#         &{ $warn_sub }() if $warn_sub ;
#         print ;
#     }
#

t/200regression.t  view on Meta::CPAN

    close $OUT ;

    ok unzstd $outFileZstd => \$new_uncompressed, transparent => 0
        or diag "unstd failed";

    ok $new_uncompressed eq $uncompressed;

    {
        # Read from <>

        local @ARGV = $text ;
        my $outB ;

        my $FH = new IO::Compress::Zstd \$outB
            or die "$ZstdError";

        # select $FH;

        while (<>)
        {
            print $FH $_;