From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 10 Oct 2000 08:22:28 +0000 (-0500)
Subject: C.pm part of
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b368a11e550966bf0db2a4cf4c43e69abbcbd3e2;p=p5sagit%2Fp5-mst-13.2.git

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
---

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);