diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2017-05-22 22:21:31 -0700 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2017-07-21 17:17:20 -0400 |
| commit | 2ee8675dead19d3a6669314b7a207366bf2cdf9d (patch) | |
| tree | 19cb905c23e47a0e3893ff071b00f73bed98cf4b /FS | |
| parent | 9c1e27955566bfddd0c756e6237a89d8427d0f3e (diff) | |
fix inadvertant breakage in mason_comp, RT#73993, RT#75279
Diffstat (limited to 'FS')
| -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} ) { |