diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-01-08 19:17:50 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-08 19:13:43 +0000 |
| commit | f9dc862fc43278b696e6cacef943fbe534e5baba (patch) | |
| tree | b4be8b2e0f1796edceff46f43b46c200c2b1e894 /t/run | |
| parent | 895148d443b27e3e0cafc490f243682cd8a265ef (diff) | |
| download | perl-f9dc862fc43278b696e6cacef943fbe534e5baba.tar.gz | |
[patch] peep() is rude
Message-Id: <200201081917.g08JHoW15789@crypt.compulink.co.uk>
p4raw-id: //depot/perl@14139
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/kill_perl.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t index e568afe1ed..c2eb01f5ff 100644 --- a/t/run/kill_perl.t +++ b/t/run/kill_perl.t @@ -816,3 +816,9 @@ ok print "ok" if 'X' =~ /\X/; EXPECT ok +######## segfault in 5.6.1 within peep() +@a = (1..9); +@b = sort { @c = sort { @d = sort { 0 } @a; @d; } @a; } @a; +print join '', @a, "\n"; +EXPECT +123456789 |