diff options
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); } |