Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
3 | # $Header: op.goto,v 1.0 87/12/18 13:13:40 root Exp $ |
4 | |
5 | print "1..3\n"; |
6 | |
7 | while (0) { |
8 | $foo = 1; |
9 | label1: |
10 | $foo = 2; |
11 | goto label2; |
12 | } continue { |
13 | $foo = 0; |
14 | goto label4; |
15 | label3: |
16 | $foo = 4; |
17 | goto label4; |
18 | } |
19 | goto label1; |
20 | |
21 | $foo = 3; |
22 | |
23 | label2: |
24 | print "#1\t:$foo: == 2\n"; |
25 | if ($foo == 2) {print "ok 1\n";} else {print "not ok 1\n";} |
26 | goto label3; |
27 | |
28 | label4: |
29 | print "#2\t:$foo: == 4\n"; |
30 | if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";} |
31 | |
32 | $x = `./perl -e 'goto foo;' 2>&1`; |
33 | print "#3\t/label/ in :$x"; |
34 | if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3\n";} |