From: Jarkko Hietaniemi Date: Wed, 26 Sep 2001 11:58:11 +0000 (+0000) Subject: grrr. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1f145d342e491f3bdc2d057c6771a7a5baba14a;p=p5sagit%2Fp5-mst-13.2.git grrr. p4raw-id: //depot/perl@12234 --- diff --git a/t/op/gv.t b/t/op/gv.t index 8654dc2..a423cb4 100755 --- 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"); }