Fix building MAD with C++ - a MAD_PV of "" is illegal, as it will be free()d.

[p5sagit/p5-mst-13.2.git] / t / comp / our.t

diff --git a/t/comp/our.t b/t/comp/our.t
index c381c41..69fbb03 100644 (file)
--- a/t/comp/our.t
+++ b/t/comp/our.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-print "1..6\n";
+print "1..7\n";
 
 {
     package TieAll;
@@ -33,17 +33,28 @@ tie %x, 'TieAll';
 
 {our $x;}
 is(TieAll->calls, '', 'our $x has no runtime effect');
+
 {our ($x);}
 is(TieAll->calls, '', 'our ($x) has no runtime effect');
+
 {our %x;}
 is(TieAll->calls, '', 'our %x has no runtime effect');
 
+{our (%x);}
+is(TieAll->calls, '', 'our (%x) has no runtime effect');
+
+{our @x;}
+is(TieAll->calls, '', 'our @x has no runtime effect');
+
+{our (@x);}
+is(TieAll->calls, '', 'our (@x) has no runtime effect');
+
+
+$y = 1;
 {
-    local $TODO = 'perl #17376';
-    {our (%x);}
-    is(TieAll->calls, '', 'our (%x) has no runtime effect');
-    {our @x;}
-    is(TieAll->calls, '', 'our @x has no runtime effect');
-    {our (@x);}
-    is(TieAll->calls, '', 'our (@x) has no runtime effect');
+    my $y = 2;
+    {
+       our $y = $y;
+       is($y, 2, 'our shouldnt be visible until introduced')
+    }
 }