summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-08-01 17:50:44 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-08-01 17:50:44 +0000
commitf94b9f70f594c8343332503e3f11c3df272bc92d (patch)
treeaceb336b307ce654521582850d22456dee1d3db6 /pp_hot.c
parentaf7f9c15b19acb8a3505931059b5c163366afc7d (diff)
downloadperl-f94b9f70f594c8343332503e3f11c3df272bc92d.tar.gz
fix buggy detection of failed glob()
p4raw-id: //depot/maint-5.005/perl@1674
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_hot.c b/pp_hot.c
index dd4f82b6bb..d0fdbfc164 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1244,7 +1244,7 @@ do_readline(void)
IoFLAGS(io) |= IOf_START;
}
else if (type == OP_GLOB) {
- if (do_close(PL_last_in_gv, FALSE) & ~0xFF)
+ if (!do_close(PL_last_in_gv, FALSE))
warn("internal error: glob failed");
}
if (gimme == G_SCALAR) {