PerlIO::get_layers should not be ignoring an argument like 12, but
treating "12" (the string) as a filehandle, as those are both the
same value.
It’s an instance of the string/num bug, which is a bit like the
Unicode Bug.
This commit takes the conservative approach of expanding it to flat
scalars in general, but not references (in case we decide to do
something interesting later on, even though I think that would be a
bad idea).
} else {
$UTF8_STDIN = 0;
}
-my $NTEST = 59 - (($DOSISH || !$FASTSTDIO) ? 7 : 0) - ($DOSISH ? 7 : 0)
+my $NTEST = 60 - (($DOSISH || !$FASTSTDIO) ? 7 : 0) - ($DOSISH ? 7 : 0)
+ $UTF8_STDIN;
sub PerlIO::F_UTF8 () { 0x00008000 } # from perliol.h
$t = '';
$f = 0; PerlIO::get_layers $t;
is $f, 1, '1 fetch on tied string';
+
+ # No distinction between nums and strings
+ open "12", "<:crlf", "test.pl" or die "$0 cannot open test.pl: $!";
+ ok PerlIO::get_layers(12), 'str/num arguments are treated identically';
}
sv = POPs;
gv = MAYBE_DEREF_GV(sv);
- if (!gv && SvPOKp(sv))
+ if (!gv && !SvROK(sv))
gv = gv_fetchsv_nomg(sv, 0, SVt_PVIO);
if (gv && (io = GvIO(gv))) {