two typos

p4raw-id: //depot/perl@1948

diff --git a/pp_hot.c b/pp_hot.c
index 859dcfb..fa947cf 100644 (file)
--- 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 (executable)
--- 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";';