diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-04-24 17:39:00 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-04-24 17:39:00 +0000 |
| commit | 92d29cee5ff815b05b81b877528e4c77e73881c9 (patch) | |
| tree | 1887469b52eec03299be2ab643c8a5310d73622e /t/op/misc.t | |
| parent | 85e0ebd8793b17cfbac766abc03b5fff57b2b2cd (diff) | |
| download | perl-92d29cee5ff815b05b81b877528e4c77e73881c9.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@5937
Diffstat (limited to 't/op/misc.t')
| -rwxr-xr-x | t/op/misc.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index 41a720215f..ef3be30602 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -545,3 +545,9 @@ ucfirst - World lcfirst - world uc - WORLD lc - world +######## +sub f { my $a = 1; my $b = 2; my $c = 3; my $d = 4; next } +my $x = "foo"; +{ f } continue { print $x, "\n" } +EXPECT +foo |