projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Add "state" feature
[p5sagit/p5-mst-13.2.git]
/
t
/
op
/
method.t
diff --git
a/t/op/method.t
b/t/op/method.t
index
ae8031a
..
aaf29be
100755
(executable)
--- 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