Robin Houston points out a better way to replace

[perl5.git] / universal.c

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