From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 1 Aug 1998 17:50:44 +0000 (+0000)
Subject: fix buggy detection of failed glob()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f94b9f70f594c8343332503e3f11c3df272bc92d;p=p5sagit%2Fp5-mst-13.2.git

fix buggy detection of failed glob()

p4raw-id: //depot/maint-5.005/perl@1674
---

diff --git a/pp_hot.c b/pp_hot.c
index dd4f82b..d0fdbfc 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) {