This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
grrr.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 26 Sep 2001 11:58:11 +0000 (11:58 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 26 Sep 2001 11:58:11 +0000 (11:58 +0000)
p4raw-id: //depot/perl@12234

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");
        
 }