diff options
| author | Stephen McCamant <smcc@mit.edu> | 2003-01-02 13:08:23 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-01-15 20:10:57 +0000 |
| commit | 79628082eace9d4fea95d94e0f5a65aa9c61455c (patch) | |
| tree | 7552d1b8c8a32926264cd16fbbc6ea96dceff417 /t/op/readline.t | |
| parent | 98b50af3d45dfb6f244ad0156bf5b77f62f20375 (diff) | |
| download | perl-79628082eace9d4fea95d94e0f5a65aa9c61455c.tar.gz | |
Re: [perl #19566] Perl 5.8.0 segfault
Message-ID: <15892.50791.692636.982873@syllepsis.MIT.EDU>
Plus a test by Jarkko
Integrated from changes 18444 and 18446 from maint-5.8
p4raw-id: //depot/perl@18485
p4raw-branched: from //depot/maint-5.8/perl@18484 'branch in'
t/op/readline.t
p4raw-integrated: from //depot/maint-5.8/perl@18446 'merge in' MANIFEST
(@18436..)
p4raw-integrated: from //depot/maint-5.8/perl@18444 'merge in' pp_hot.c
(@18173..)
Diffstat (limited to 't/op/readline.t')
| -rw-r--r-- | t/op/readline.t | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/t/op/readline.t b/t/op/readline.t new file mode 100644 index 0000000000..ae043123da --- /dev/null +++ b/t/op/readline.t @@ -0,0 +1,13 @@ +#!./perl + +BEGIN { + chdir 't'; + @INC = '../lib'; + require './test.pl'; +} + +plan tests => 1; + +eval { for (\2) { $_ = <FH> } }; +like($@, 'Modification of a read-only value attempted', '[perl #19566]'); + |