diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-10 03:22:28 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-01 18:57:13 +0000 |
| commit | b368a11e550966bf0db2a4cf4c43e69abbcbd3e2 (patch) | |
| tree | b9d258914bf829b495c4bd12a38d16065e437e4a /ext/B | |
| parent | a13595b5281fdbbbab355732a452b568bedb399e (diff) | |
| download | perl-b368a11e550966bf0db2a4cf4c43e69abbcbd3e2.tar.gz | |
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
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/C.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm index f8b2ac5675..f2addfbe92 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); |