X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fmethod.t;h=aaf29be8df1d88f7d61b278ccd5ed0255226fe69;hb=584420f022db57225e9644b9c6668ff9f567984a;hp=ae8031a9f618b7d72331efcb0f0050d0f6289e2a;hpb=842517601b969821600597cc5736114bee3b0c27;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/method.t b/t/op/method.t
index ae8031a..aaf29be 100755
--- a/t/op/method.t
+++ b/t/op/method.t
@@ -284,6 +284,7 @@ for my $meth (['Bar', 'Foo::Bar'],
 {
     fresh_perl_is(<<EOT,
 package UNIVERSAL; sub AUTOLOAD { my \$c = shift; print "\$c \$AUTOLOAD\\n" }
+sub DESTROY {} # IO object destructor called in MacOS, because of Mac::err
 package Xyz;
 package main; Foo->$meth->[0]();
 EOT