| Subject: | [PATCH] Compatibility with CV-in-stash optimisation |
See attached patch. In bleadperl, stash entries can now contain sub refs.
| Subject: | open_MuZtwCqA.txt |
diff -rup MOP4Import-Declare-0.004-0-orig/Util.pm MOP4Import-Declare-0.004-0/Util.pm
--- MOP4Import-Declare-0.004-0-orig/Util.pm 2018-01-28 18:16:36.000000000 -0800
+++ MOP4Import-Declare-0.004-0/Util.pm 2018-01-28 18:16:42.000000000 -0800
@@ -154,7 +154,8 @@ sub function_names {
my $symtab = *{globref($packname, '')}{HASH};
my @result;
foreach my $name (sort keys %$symtab) {
- next unless *{$symtab->{$name}}{CODE};
+ next unless
+ ref $symtab->{$name} eq "CODE" || $*{$symtab->{$name}}{CODE};
next unless $name =~ $pattern;
next if $except and $name =~ $except;
push @result, $name;