diff options
Diffstat (limited to 'dist/B-Deparse')
| -rw-r--r-- | dist/B-Deparse/Deparse.pm | 2 | ||||
| -rw-r--r-- | dist/B-Deparse/t/deparse.t | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index 335b3c0a78..e3079ad20b 100644 --- a/dist/B-Deparse/Deparse.pm +++ b/dist/B-Deparse/Deparse.pm @@ -3222,7 +3222,7 @@ sub _method { } else { $obj = $kid; $kid = $kid->sibling; - for (; !null ($kid->sibling) && $kid->name ne "method_named"; + for (; !null ($kid->sibling) && $kid->name!~/^method(?:_named)?\z/; $kid = $kid->sibling) { push @exprs, $kid } diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t index b1bd1e277f..cb0faadd28 100644 --- a/dist/B-Deparse/t/deparse.t +++ b/dist/B-Deparse/t/deparse.t @@ -392,6 +392,7 @@ my $f = sub { # variables as method names my $bar; 'Foo'->$bar('orz'); +'Foo'->$bar('orz') = 'a stranger stranger than before'; #### # constants as method names 'Foo'->bar('orz'); |