More DWIMminess for Class::Struct: calling the array or hash

[p5sagit/p5-mst-13.2.git] / t / lib / b-deparse.t

diff --git a/t/lib/b-deparse.t b/t/lib/b-deparse.t
index 59f8cbf..048ce31 100644 (file)
--- a/t/lib/b-deparse.t
+++ b/t/lib/b-deparse.t
@@ -15,7 +15,7 @@ use warnings;
 use strict;
 use Config;
 
-print "1..12\n";
+print "1..14\n";
 
 use B::Deparse;
 my $deparse = B::Deparse->new() or print "not ";
@@ -166,3 +166,11 @@ $test /= 2 if ++$test;
 continue {
     123;
 }
+####
+# 9
+my $x;
+print $main::x;
+####
+# 10
+my @x;
+print $main::x[1];