diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-12-20 13:39:01 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-12-20 13:39:01 +0000 |
| commit | f776e3cd68509957cc5ab2967a78fb0ad213d8aa (patch) | |
| tree | 6bbb9eac354afe8d1433077b0edf1425619110ad /universal.c | |
| parent | 0bfa2a8afc04ca8a47987d5890bbbe751faf4444 (diff) | |
| download | perl-f776e3cd68509957cc5ab2967a78fb0ad213d8aa.tar.gz | |
gv_fetchpv, gv_fetchpvn and gv_fetchsv take a bitmask of flags, rather
than a simple boolean, so passing FALSE or TRUE is bogus.
p4raw-id: //depot/perl@26415
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 824a4d5c66..784fe5378a 100644 --- a/universal.c +++ b/universal.c @@ -851,7 +851,7 @@ XS(XS_PerlIO_get_layers) if (SvROK(sv) && isGV(SvRV(sv))) gv = (GV*)SvRV(sv); else if (SvPOKp(sv)) - gv = gv_fetchsv(sv, FALSE, SVt_PVIO); + gv = gv_fetchsv(sv, 0, SVt_PVIO); } if (gv && (io = GvIO(gv))) { |