Avoid using the warnings pragma in proto.t - use may not work yet.

[p5sagit/p5-mst-13.2.git] / t / comp / colon.t

diff --git a/t/comp/colon.t b/t/comp/colon.t
old mode 100755 (executable)
new mode 100644 (file)
index 2a37367..122e33e
--- a/t/comp/colon.t
+++ b/t/comp/colon.t
@@ -110,7 +110,7 @@ ok 18, (not eval "qw:1" and
        not eval "qw:echo:ohce: >= 0");
 
 ok 19, (not eval "qx:1" and
-       eval "qx:echo: eq qx|echo|" and
+       eval "qx:echo 1: eq qx|echo 1|" and     # echo without args may warn
        not eval "qx:echo:ohce: >= 0");
 
 ok 20, (not eval "s:1" and
@@ -125,14 +125,14 @@ ok 22, (not eval "y:1" and
        not eval "y:echo: eq y|echo|" and
        eval "y:echo:ohce: >= 0");
 
-ok 23, (eval "AUTOLOAD:1" and
+ok 23, (not eval "AUTOLOAD:1" and
        not eval "AUTOLOAD:echo: eq AUTOLOAD|echo|" and
        not eval "AUTOLOAD:echo:ohce: >= 0");
 
-ok 24, (eval "and:1" and
+ok 24, (not eval "and:1" and
        not eval "and:echo: eq and|echo|" and
        not eval "and:echo:ohce: >= 0");
 
-ok 25, (eval "alarm:1" and
+ok 25, (not eval "alarm:1" and
        not eval "alarm:echo: eq alarm|echo|" and
        not eval "alarm:echo:ohce: >= 0");