diff options
| author | markm <markm@FreeBSD.org> | 1999-05-02 14:33:17 +0000 |
|---|---|---|
| committer | markm <markm@FreeBSD.org> | 1999-05-02 14:33:17 +0000 |
| commit | 77644ee620b6a79cf8c538abaf7cd301a875528d (patch) | |
| tree | b4adabf341898a4378f4b7f8c7fb65f3f7c77769 /contrib/perl5/t/op/runlevel.t | |
| parent | 4fcbc3669aa997848e15198cc9fb856287a6788c (diff) | |
| download | FreeBSD-src-77644ee620b6a79cf8c538abaf7cd301a875528d.zip FreeBSD-src-77644ee620b6a79cf8c538abaf7cd301a875528d.tar.gz | |
Maintenance releace 3 of perl5.005. Includes support for threads.
Diffstat (limited to 'contrib/perl5/t/op/runlevel.t')
| -rwxr-xr-x | contrib/perl5/t/op/runlevel.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/contrib/perl5/t/op/runlevel.t b/contrib/perl5/t/op/runlevel.t index 307e2a0..bff3c36 100755 --- a/contrib/perl5/t/op/runlevel.t +++ b/contrib/perl5/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 |
