require './test.pl';
}
-print "1..6\n";
+print "1..7\n";
{
package 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')
+ }
}