view release on metacpan or  search on metacpan

mcprimers.bat  view on Meta::CPAN

Use at your risk. Check any solutions you obtain

/;

}

####################################################################

sub sanity_check_arguments {

    (my $dev,my $ino,my $mode,my $nlink,my $uid,my $gid,my $rdev,my $size,
       my $atime,my $mtime,my $ctime,my $blksize,my $blocks)
           = stat(*STDIN);
           
    if ($flag{filter} == 0 and $size > 0) {
        die "\nError - Input is redirected and -filter flag not set\n\n";
    }
}

####################################################################

mcprimers.pl  view on Meta::CPAN

Use at your risk. Check any solutions you obtain

/;

}

####################################################################

sub sanity_check_arguments {

    (my $dev,my $ino,my $mode,my $nlink,my $uid,my $gid,my $rdev,my $size,
       my $atime,my $mtime,my $ctime,my $blksize,my $blocks)
           = stat(*STDIN);
           
    if ($flag{filter} == 0 and $size > 0) {
        die "\nError - Input is redirected and -filter flag not set\n\n";
    }
}

####################################################################