diff options
Diffstat (limited to 't/comp/script.t')
| -rwxr-xr-x | t/comp/script.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/comp/script.t b/t/comp/script.t index 7dd78cdd95..f37e46bb66 100755 --- a/t/comp/script.t +++ b/t/comp/script.t @@ -5,6 +5,7 @@ print "1..3\n"; $x = `./perl -e 'print "ok\n";'`; +if ($x =~ /DCL-W-NOCOMD/) { $x = `\$ mcr sys\$disk:[]perl. -e "print ""ok\n""";`; } if ($x eq "ok\n") {print "ok 1\n";} else {print "not ok 1\n";} @@ -13,11 +14,13 @@ print try 'print "ok\n";'; print try "\n"; close try; $x = `./perl Comp.script`; +if ($x =~ /DCL-W-NOCOMD/) { $x = `\$ mcr sys\$disk:[]perl. Comp.script`; } if ($x eq "ok\n") {print "ok 2\n";} else {print "not ok 2\n";} $x = `./perl <Comp.script`; +if ($x =~ /DCL-W-NOCOMD/) { $x = `\$ mcr sys\$disk:[]perl. <Comp.script`; } if ($x eq "ok\n") {print "ok 3\n";} else {print "not ok 3\n";} -`/bin/rm -f Comp.script`; +unlink 'Comp.script' || `/bin/rm -f Comp.script`; |