diff options
author | Artur Bergman <sky@nanisky.com> | 2001-10-02 10:40:57 +0000 |
---|---|---|
committer | Artur Bergman <sky@nanisky.com> | 2001-10-02 10:40:57 +0000 |
commit | 720f287d0034492a26b7255eb708eb820f59a51d (patch) | |
tree | 678699ecb4599935703cbc5eae0d6a8d6936bf47 /mg.c | |
parent | 2590a1d735c9a5b2bb0473048e14315c625a1b7f (diff) | |
download | perl-720f287d0034492a26b7255eb708eb820f59a51d.tar.gz |
Fixes obscure bug that manifests itself by.
local $!=0;undef*STDOUT;#segfaults
Has been around for a while. Possible other magic IO vars are
possibly affected as well. Reported by Jos Boumans.
p4raw-id: //depot/perl@12303
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1894,6 +1894,8 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) case '|': { IO *io = GvIOp(PL_defoutgv); + if(!io) + break; if ((SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)) == 0) IoFLAGS(io) &= ~IOf_FLUSH; else { |