Bind op fix.

[p5sagit/p5-mst-13.2.git] / t / op / runlevel.t

diff --git a/t/op/runlevel.t b/t/op/runlevel.t
index 1d923cf..3865e52 100755 (executable)
--- a/t/op/runlevel.t
+++ b/t/op/runlevel.t
@@ -32,7 +32,7 @@ for (@prgs){
     print TEST "$prog\n";
     close TEST;
     my $results = $Is_VMS ?
-                 `MCR $^X "-I[-.lib]" $switch $tmpfile` :
+                  `MCR $^X "-I[-.lib]" $switch $tmpfile 2>&1` :
                      $Is_MSWin32 ?  
                          `.\\perl -I../lib $switch $tmpfile 2>&1` :
                              `./perl $switch $tmpfile 2>&1`;
@@ -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