Change 6214 by gsar@auger on 2000/06/08 13:57:54

    @_ can't have junk in it even in the non-USE_ITHREADS case because
    caller() wants to populate @DB::args with it (causes a coredump
    in Carp::confess())

1 files changed, 15 insertions, 0 deletions

diff --git a/gnu/usr.bin/perl/t/op/runlevel.t b/gnu/usr.bin/perl/t/op/runlevel.t
index e988ad9362a..3865e52070d 100644
--- a/gnu/usr.bin/perl/t/op/runlevel.t
+++ b/gnu/usr.bin/perl/t/op/runlevel.t
@@ -349,3 +349,18 @@ A 1
 bar
 B 2
 bar
+########
+sub n { 0 }
+sub f { my $x = shift; d(); }
+f(n());
+f();
+
+sub d {
+    my $i = 0; my @a;
+    while (do { { package DB; @a = caller($i++) } } ) {
+        @a = @DB::args;
+        for (@a) { print "$_\n"; $_ = '' }
+    }
+}
+EXPECT
+0