From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 24 Jun 2005 10:45:44 +0000 (+0000)
Subject: Need to do some sort of die/warn to get the "global destruction"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4184c77b776c43b48baa00b97fea5ee8fffe0f6a;p=p5sagit%2Fp5-mst-13.2.git

Need to do some sort of die/warn to get the "global destruction"
text if the bug is still present.

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

diff --git a/t/op/gv.t b/t/op/gv.t
index e2e7197..4580473 100755
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -247,10 +247,12 @@ is($j[0], 1);
 }
 
 {
+    # Need some sort of die or warn to get the global destruction text if the
+    # bug is still present
     my $output = runperl(prog => <<'EOPROG');
 package M;
 $| = 1;
-sub DESTROY {print qq{Farewell $_[0]}}
+sub DESTROY {eval {die qq{Farewell $_[0]}}; print $@}
 package main;
 
 bless \$A::B, 'M';