diff options
| author | Peter Dintelmann <Peter.Dintelmann@Dresdner-Bank.com> | 2005-11-15 23:11:41 -0800 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-11-17 00:18:31 +0000 |
| commit | 671d49be3f59c3499d5c499c5070da719dbb52d2 (patch) | |
| tree | 3c44bf7d4cfeabfcaf401d2b94a07b1a9f11f578 /universal.c | |
| parent | d4d97442eccd75702fefc796c9d6c90f521a6f06 (diff) | |
| download | perl-671d49be3f59c3499d5c499c5070da719dbb52d2.tar.gz | |
[perl #37694] segfault with PerlIO::get_layers()
From: Peter Dintelmann (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-37694-124556.15.9755707729767@perl.org>
p4raw-id: //depot/perl@26144
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/universal.c b/universal.c index 1f63563da6..10dddb5efe 100644 --- a/universal.c +++ b/universal.c @@ -850,7 +850,7 @@ XS(XS_PerlIO_get_layers) if (!isGV(sv)) { if (SvROK(sv) && isGV(SvRV(sv))) gv = (GV*)SvRV(sv); - else + else if (SvPOKp(sv)) gv = gv_fetchsv(sv, FALSE, SVt_PVIO); } |