fix inadvertant breakage in mason_comp, RT#73993, RT#75279

diff --git a/FS/FS/ClientAPI/MasonComponent.pm b/FS/FS/ClientAPI/MasonComponent.pm
index d09d6da..8a51354 100644 (file)
--- 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} ) {