diff options
Diffstat (limited to 't/op/goto.t')
| -rwxr-xr-x | t/op/goto.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/op/goto.t b/t/op/goto.t index 21a35c1de3..087331907e 100755 --- a/t/op/goto.t +++ b/t/op/goto.t @@ -32,6 +32,8 @@ print "#2\t:$foo: == 4\n"; if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";} $x = `./perl -e 'goto foo;' 2>&1`; +if ($x =~ /DCL-W-NOCOMD/) { $x = `\$ mcr sys\$disk:[]perl. -e "goto foo;"`; } + if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3\n";} sub foo { |