This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c244424
)
add failed check-in of goto.t from change#1867
author
Gurusamy Sarathy
<gsar@cpan.org>
Thu, 3 Dec 1998 01:32:16 +0000
(
01:32
+0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Thu, 3 Dec 1998 01:32:16 +0000
(
01:32
+0000)
p4raw-link: @1867 on //depot/perl:
e8f7dd13f8ad36b160a674831b76d23cb33bfe5a
p4raw-id: //depot/perl@2440
t/op/goto.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/goto.t
b/t/op/goto.t
index
a62c899
..
8096aff
100755
(executable)
--- a/
t/op/goto.t
+++ b/
t/op/goto.t
@@
-2,7
+2,7
@@
# "This IS structured code. It's just randomly structured."
# "This IS structured code. It's just randomly structured."
-print "1..1
2
\n";
+print "1..1
3
\n";
while ($?) {
$foo = 1;
while ($?) {
$foo = 1;
@@
-54,7
+54,7
@@
sub bar {
exit;
FINALE:
exit;
FINALE:
-print "ok 1
2
\n";
+print "ok 1
3
\n";
exit;
bypass:
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'); }
}
for (9..11) { start(bless([$_]), 'bar'); }
}
+sub auto {
+ goto &loadit;
+}
+
+sub AUTOLOAD { print @_ }
+
+auto("ok 12\n");
+
$wherever = FINALE;
goto $wherever;
$wherever = FINALE;
goto $wherever;