tests are expected to fail if dirfd () does not exist

[p5sagit/p5-mst-13.2.git] / t / op / gv.t

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