diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2019-11-19 20:36:00 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2019-11-19 20:36:00 +0200 |
commit | 45b564fa90858842b4c5c9afc55d015f47e18f9e (patch) | |
tree | 16d46ba67a8d7f6966c3c6c23e22f421f8e96622 | |
parent | 7b1dd4a1ad064253509da7903eaf363013fdd9a9 (diff) | |
download | config-ast-45b564fa90858842b4c5c9afc55d015f47e18f9e.tar.gz config-ast-45b564fa90858842b4c5c9afc55d015f47e18f9e.tar.bz2 |
Bugfix
* lib/Config/AST/Follow.pm (AUTOLOAD): Pass arguments to the invoked
method.
-rw-r--r-- | lib/Config/AST/Follow.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Config/AST/Follow.pm b/lib/Config/AST/Follow.pm index cf05e34..0f4fbd5 100644 --- a/lib/Config/AST/Follow.pm +++ b/lib/Config/AST/Follow.pm @@ -67,13 +67,13 @@ sub AUTOLOAD { my $self = shift; $AUTOLOAD =~ s/(?:(.*)::)?(.+)//; my ($p, $m) = ($1, $2); if ($self->{_node}->can($m)) { - return $self->{_node}->${\$m}; + return $self->{_node}->${\$m}(@_); } croak "Can't locate object method \"$m\" via package \"$p\"" if @_; croak "Can't locate object method \"$m\" via package \"$p\" \ |