diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-13 01:49:16 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-13 01:49:16 +0000 |
| commit | be4f712a01f8cac0b4b4290efd894c00a5af5374 (patch) | |
| tree | 21a5460e3d7614b85bd8eaa3702db5c43eecba90 /t/op/runlevel.t | |
| parent | 9d14cc18f7ccf6279e31fce0414a00b7ff3bd076 (diff) | |
| download | perl-be4f712a01f8cac0b4b4290efd894c00a5af5374.tar.gz | |
don't longjmp() in pp_goto() (regressive bug from old single-stack
implementation)
p4raw-id: //depot/perl@1941
Diffstat (limited to 't/op/runlevel.t')
| -rwxr-xr-x | t/op/runlevel.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/t/op/runlevel.t b/t/op/runlevel.t index 307e2a0bb5..bff3c363ac 100755 --- a/t/op/runlevel.t +++ b/t/op/runlevel.t @@ -315,3 +315,23 @@ main|-|9|main::__ANON__ In DIE main|-|10|(eval) main|-|10|main::foo +######## +package TEST; + +sub TIEARRAY { + return bless [qw(foo fee fie foe)], $_[0]; +} +sub FETCH { + my ($s,$i) = @_; + if ($i) { + goto bbb; + } +bbb: + return $s->[$i]; +} + +package main; +tie my @bar, 'TEST'; +print join('|', @bar[0..3]), "\n"; +EXPECT +foo|fee|fie|foe |