diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-05-22 22:21:31 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2017-05-22 22:21:31 -0700 |
commit | 7cc964155e62890ecaf6bc669eca185e1558cb46 (patch) | |
tree | c70f3acf0dc8816f9996ecc842f73fb6ad30200d /FS/FS/ClientAPI/MasonComponent.pm | |
parent | 6775e56f85e871b369ebe3d25498fda640cef47b (diff) |
fix inadvertant breakage in mason_comp, RT#73993, RT#75279
Diffstat (limited to 'FS/FS/ClientAPI/MasonComponent.pm')
-rw-r--r-- | FS/FS/ClientAPI/MasonComponent.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/FS/FS/ClientAPI/MasonComponent.pm b/FS/FS/ClientAPI/MasonComponent.pm index d09d6da46..8a513543c 100644 --- a/FS/FS/ClientAPI/MasonComponent.pm +++ b/FS/FS/ClientAPI/MasonComponent.pm @@ -100,7 +100,10 @@ my %session_callbacks = ( } } +use Data::Dumper; +warn Dumper $argsref; my %args = @$argsref; +warn Dumper \%args; $args{part_pkg} = \@part_pkg; $args{first_svc} = \@first_svc; $args{no_comment} = 1; @@ -137,6 +140,8 @@ my( $fs_interp, $rt_interp ) = mason_interps('standalone', 'outbuf'=>\$outbuf); sub mason_comp { my $packet = shift; +use Data::Dumper; +warn Dumper($packet); warn "$me mason_comp called on $packet\n" if $DEBUG; @@ -145,7 +150,7 @@ sub mason_comp { return { 'error' => 'Illegal component' }; } - my @args = $packet->{'args'} ? $packet->{'args'} : (); + my @args = $packet->{'args'} ? @{ $packet->{'args'} } : (); if ( $session_comps{$comp} ) { |