From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 14 Oct 1998 05:38:01 +0000 (+0000)
Subject: two typos
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf49456938f5ed6aeb344309365692c8133f8023;p=p5sagit%2Fp5-mst-13.2.git

two typos

p4raw-id: //depot/perl@1948
---

diff --git a/pp_hot.c b/pp_hot.c
index 859dcfb..fa947cf 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1262,7 +1262,7 @@ do_readline(void)
 		    warner(WARN_CLOSED,
 			   "glob failed (child exited with status %d%s)",
 			   STATUS_CURRENT >> 8,
-			   (STATUS_CURRENT & 0xFF) ? ", core dumped" : "");
+			   (STATUS_CURRENT & 0x80) ? ", core dumped" : "");
 		}
 	    }
 	    if (gimme == G_SCALAR) {
diff --git a/t/op/eval.t b/t/op/eval.t
index 5a9c198..0d2a90b 100755
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..27\n";
+print "1..28\n";
 
 eval 'print "ok 1\n";';