diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-08-02 02:13:10 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-08 14:40:41 +0000 |
| commit | 6b78add2c35f54b36819625ba31bac03f6bb28ea (patch) | |
| tree | e3383ec47d5763df79c2da2e4ddf4468eb2d44a1 /t | |
| parent | aed17120f1d71c676ff756013d9027da2cec8e83 (diff) | |
| download | perl-6b78add2c35f54b36819625ba31bac03f6bb28ea.tar.gz | |
Re: [perl #15479] perl 5.8.0 segfault
Message-id: <20020802001310.7e1dc694.rgarciasuarez@free.fr>
p4raw-id: //depot/perl@17695
Diffstat (limited to 't')
| -rw-r--r-- | t/op/stash.t | 18 |
1 files changed, 18 insertions, 0 deletions
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', +); |