grrr.

p4raw-id: //depot/perl@12234

diff --git a/t/op/gv.t b/t/op/gv.t
index 8654dc25af17c6c1724afed3c0c04164e9b41369..a423cb49edda1fdf886a6ccfb6dee007d7ef03a9 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");
        
 }