| Subject: | [PATCH] METHOP support |
See attachment.
| Subject: | open_V1R80fkt.txt |
diff -rup B-Lint-1.18-enz4vr-orig/lib/B/Lint.pm B-Lint-1.18-enz4vr/lib/B/Lint.pm
--- B-Lint-1.18-enz4vr-orig/lib/B/Lint.pm 2014-09-29 07:44:59.000000000 -0700
+++ B-Lint-1.18-enz4vr/lib/B/Lint.pm 2014-10-22 21:57:10.000000000 -0700
@@ -318,6 +318,7 @@ sub inside_foreach_modifier {
for (
[qw[ B::PADOP::gv_harder gv padix]],
[qw[ B::SVOP::sv_harder sv targ]],
+ [qw[ B::METHOP::sv_harder meth_sv targ]],
[qw[ B::SVOP::gv_harder gv padix]]
)
{
@@ -516,7 +517,7 @@ IMPLICIT_FOO: {
# scratchpad to find things. I suppose this is so a optree can be
# shared between threads and all symbol table muckery will just get
# written to a scratchpad.
-*B::PADOP::lint = *B::PADOP::lint = \&B::SVOP::lint;
+*B::METHOP::lint = *B::PADOP::lint = *B::PADOP::lint = \&B::SVOP::lint;
sub B::SVOP::lint {
my ($op) = @_;