diff options
| -rw-r--r-- | MANIFEST | 1 | ||||
| -rw-r--r-- | perl.h | 1 | ||||
| -rw-r--r-- | t/op/stash.t | 18 |
3 files changed, 20 insertions, 0 deletions
@@ -2554,6 +2554,7 @@ t/op/splice.t See if splice works t/op/split.t See if split works t/op/sprintf.t See if sprintf works t/op/srand.t See if srand works +t/op/stash.t See if %:: stashes work t/op/stat.t See if stat works t/op/study.t See if study works t/op/subst.t See if substitution works @@ -2396,6 +2396,7 @@ Gid_t getegid (void); #ifndef Perl_error_log # define Perl_error_log (PL_stderrgv \ + && isGV(PL_stderrgv) \ && GvIOp(PL_stderrgv) \ && IoOFP(GvIOp(PL_stderrgv)) \ ? IoOFP(GvIOp(PL_stderrgv)) \ diff --git a/t/op/stash.t b/t/op/stash.t new file mode 100644 index 0000000000..c8fe0ae14a --- /dev/null +++ b/t/op/stash.t @@ -0,0 +1,18 @@ +#!./perl + +BEGIN { + chdir 't' if -d 't'; + @INC = qw(../lib); +} + +require "./test.pl"; + +plan( tests => 1 ); + +# Used to segfault (bug #15479) +fresh_perl_is( + '%:: = ""', + 'Odd number of elements in hash assignment at - line 1.', + { switches => [ '-w' ] }, + 'delete $::{STDERR} and print a warning', +); |