From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 23 May 2017 05:21:31 +0000 (-0700)
Subject: fix inadvertant breakage in mason_comp, RT#73993, RT#75279
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=2ee8675dead19d3a6669314b7a207366bf2cdf9d

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