From b368a11e550966bf0db2a4cf4c43e69abbcbd3e2 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 10 Oct 2000 03:22:28 -0500 Subject: [PATCH] C.pm part of Subject: [ID 20001010.001] [Daniel.Stutz@astaro.de: perlcc and C.pm in perl-5.7.0] Message-Id: <20001010082228.B17030@chaos.wustl.edu> p4raw-id: //depot/perl@7518 --- ext/B/B/C.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm index f8b2ac5..f2addfb 100644 --- a/ext/B/B/C.pm +++ b/ext/B/B/C.pm @@ -1338,7 +1338,7 @@ sub should_save # Now see if current package looks like an OO class this is probably too strong. foreach my $m (qw(new DESTROY TIESCALAR TIEARRAY TIEHASH TIEHANDLE)) { - if ($package->can($m)) + if (UNIVERSAL::can($package, $m)) { warn "$package has method $m: saving package\n";#debug return mark_package($package); -- 2.7.4