[freeside-commits] branch master updated. 7cc964155e62890ecaf6bc669eca185e1558cb46

[Ivan]

The branch, master has been updated
       via  7cc964155e62890ecaf6bc669eca185e1558cb46 (commit)
      from  6775e56f85e871b369ebe3d25498fda640cef47b (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 7cc964155e62890ecaf6bc669eca185e1558cb46
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Mon May 22 22:21:31 2017 -0700

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

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/ClientAPI/MasonComponent.pm |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)