Non-VMS-fixed and Win32-skipped version of
[p5sagit/p5-mst-13.2.git] / t / op / gv.t
index 8654dc2..a423cb4 100755 (executable)
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -111,7 +111,7 @@ print {*x{IO}} "ok 23\n";
                $warn .= $_[0];
        };
        my $val = *x{FILEHANDLE};
-       print {*x{IO}} ($warn =~ /is deprecated/ ? "ok 42\n" : "not ok 42\n");
+       print {*x{IO}} ($warn =~ /is deprecated/ ? "ok 24\n" : "not ok 24\n");
        
 }