From: Peter Dintelmann <Peter.Dintelmann@Dresdner-Bank.com>
Date: Wed, 16 Nov 2005 07:11:41 +0000 (-0800)
Subject: [perl #37694] segfault with PerlIO::get_layers()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=671d49be3f59c3499d5c499c5070da719dbb52d2;p=p5sagit%2Fp5-mst-13.2.git

[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
---

diff --git a/universal.c b/universal.c
index 1f63563..10dddb5 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);
 	}