diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-12-03 01:32:16 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-12-03 01:32:16 +0000 |
| commit | 379c5dcc2964f5ce6d1fea34580b612a7f9ebc2d (patch) | |
| tree | 29acd2c2b675bbee39a7a639528501fa0b3e69bb /t/op/goto.t | |
| parent | c2444246ea0b34317b8006ae1ad2160e01136013 (diff) | |
| download | perl-379c5dcc2964f5ce6d1fea34580b612a7f9ebc2d.tar.gz | |
add failed check-in of goto.t from change#1867
p4raw-link: @1867 on //depot/perl: e8f7dd13f8ad36b160a674831b76d23cb33bfe5a
p4raw-id: //depot/perl@2440
Diffstat (limited to 't/op/goto.t')
| -rwxr-xr-x | t/op/goto.t | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/t/op/goto.t b/t/op/goto.t index a62c89925b..8096aff0f2 100755 --- a/t/op/goto.t +++ b/t/op/goto.t @@ -2,7 +2,7 @@ # "This IS structured code. It's just randomly structured." -print "1..12\n"; +print "1..13\n"; while ($?) { $foo = 1; @@ -54,7 +54,7 @@ sub bar { exit; FINALE: -print "ok 12\n"; +print "ok 13\n"; exit; bypass: @@ -93,5 +93,13 @@ print $@ =~ /Can't find label NOWHERE/ ? "ok 8\n" : "not ok 8\n"; for (9..11) { start(bless([$_]), 'bar'); } } +sub auto { + goto &loadit; +} + +sub AUTOLOAD { print @_ } + +auto("ok 12\n"); + $wherever = FINALE; goto $wherever; |