This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
grrr.
[perl5.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");
        
 }