11 lines
463 B
Raku
11 lines
463 B
Raku
--- inc/Module/Install.pm.orig 2005-12-31 07:37:24 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}++;
|