Select Code to Download

[prompt]perl -MTest::Harness -e"runtests 'test1.perl'"
test1.per...........'C:\Program' is not recognized as an internal or e
+xternal command,
...
test1.per...........dubious
        Test returned status 1 (wstat 256, 0x100)
FAILED--1 test script could be run, alas--no output ever seen

    my $cmd = ($ENV{'HARNESS_COMPILE_TEST'})
        ? "./perl -I../lib ../utils/perlcc $test "
...
        : "$^X $s $test|";
    $cmd = "MCR $cmd" if $^O eq 'VMS';
    $fh->open($cmd) or print "can't run $test. $!\n";

open FH, "$^X $scriptname|"

my $interp_name= $^O eq 'MSWin32' ? Win32::GetShortPathName($^X) : $^X
+;