blob: e0ef57211789adba5ff0e61dc109c061ad836c65 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- inc/Module/Install.pm.orig 2006-01-26 08:25:18 UTC
+++ inc/Module/Install.pm
@@ -89,7 +89,7 @@ sub preload {
my %seen_method;
foreach my $obj ( @exts ) {
while (my ($method, $glob) = each %{ref($obj) . '::'}) {
- next unless defined *{$glob}{CODE};
+ next unless exists &{ref($obj).'::'.$method};
next if $method =~ /^_/;
next if $method eq uc($method);
$seen_method{$method}++;
|
