view release on metacpan or  search on metacpan

t/test_utils.pl  view on Meta::CPAN

}

sub _projrun {
    my $torun = shift;
    my $filename = shift;
    my $fh = IO::File->new (">$filename") or die "%Error: $! writing $filename,";
    (my $shebang = $PERL) =~ s/\'//g;
    print $fh "#!${shebang}\n";
    print $fh "exec '${Dist}/project_bin','--project_bin-run','$torun',\@ARGV;\n";
    $fh->close();
    chmod 0777, $filename;
}

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

sub run_system {
    # Run a system command, check errors
    my $command = shift;
    print "\t$command\n";
    system "$command";
    my $status = $?;