This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix buggy detection of failed glob()
authorGurusamy Sarathy <gsar@cpan.org>
Sat, 1 Aug 1998 17:50:44 +0000 (17:50 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 1 Aug 1998 17:50:44 +0000 (17:50 +0000)
p4raw-id: //depot/maint-5.005/perl@1674

pp_hot.c

index dd4f82b..d0fdbfc 100644 (file)
--- 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) {