summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-03-20 16:27:13 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-03-20 16:27:13 +0000
commitafd1915d434259c875b8da032bfece22c20f714f (patch)
treedf624cbff512b5e4277e03be7f0cf026f8efd77a /pp.c
parent14190b26cd9cfe4309de569863b29ab40645cfe0 (diff)
downloadperl-afd1915d434259c875b8da032bfece22c20f714f.tar.gz
autovivify open($fh[0],...) properly
p4raw-id: //depot/perl@5836
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index 30476bd750..a59664e4d1 100644
--- a/pp.c
+++ b/pp.c
@@ -205,7 +205,7 @@ PP(pp_rv2gv)
if (SvROK(sv))
goto wasref;
}
- if (!SvOK(sv)) {
+ if (!SvOK(sv) && sv != &PL_sv_undef) {
/* If this is a 'my' scalar and flag is set then vivify
* NI-S 1999/05/07
*/