From: Steve Hay <SteveHay@planit.com>
Date: Fri, 24 Jun 2005 09:37:24 +0000 (+0000)
Subject: Fix t\op\gv.t on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5c2a9b31204ff97db4e58fd56005952c7d779b18;p=p5sagit%2Fp5-mst-13.2.git

Fix t\op\gv.t on Win32

p4raw-id: //depot/perl@24972
---

diff --git a/t/op/gv.t b/t/op/gv.t
index 66c1cfd..e2e7197 100755
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -247,9 +247,10 @@ is($j[0], 1);
 }
 
 {
-    my $output = runperl(prog => <<'EOPROG', stderr => 1);
+    my $output = runperl(prog => <<'EOPROG');
 package M;
-sub DESTROY {warn "Farewell $_[0]"}
+$| = 1;
+sub DESTROY {print qq{Farewell $_[0]}}
 package main;
 
 bless \$A::B, 'M';