diff options
| -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} ) { |