diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-02 15:19:59 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-02 15:19:59 +0000 |
| commit | ce10b5d1ec5b5f68b0811018a415bc37bb6bfe5e (patch) | |
| tree | 8fcfaa5786d83e361d7f05ef1cca6f1770fb0014 /t | |
| parent | d05e821b371c26b65a55f4dc84c58ab20a15d923 (diff) | |
| download | perl-ce10b5d1ec5b5f68b0811018a415bc37bb6bfe5e.tar.gz | |
Since we no longer autovivify stashes (change #26370), we need
to turn off strict-refs on them, or we'll have a stricture
error the first time we'd try to access them (when they'll be
actually autovivified).
p4raw-link: @26370 on //depot/perl: adc51b978ed1b2e9d4512c9bfa80386ac917d05a
p4raw-id: //depot/perl@26574
Diffstat (limited to 't')
| -rw-r--r-- | t/op/stash.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/stash.t b/t/op/stash.t index 3d9d0841da..4a3cf06538 100644 --- a/t/op/stash.t +++ b/t/op/stash.t @@ -7,7 +7,7 @@ BEGIN { require "./test.pl"; -plan( tests => 9 ); +plan( tests => 11 ); # Used to segfault (bug #15479) fresh_perl_is( @@ -50,3 +50,9 @@ package main; '', ); } + +# now tests with strictures + +use strict; +ok( !defined %pig::, q(referencing a non-existent stash doesn't produce stricture errors) ); +ok( !exists $pig::{bodine}, q(referencing a non-existent stash element doesn't produce stricture errors) ); |