projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6775e56
)
fix inadvertant breakage in mason_comp, RT#73993, RT#75279
author
Ivan Kohler
<ivan@freeside.biz>
Tue, 23 May 2017 05:21:31 +0000
(22:21 -0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Tue, 23 May 2017 05:21:31 +0000
(22:21 -0700)
FS/FS/ClientAPI/MasonComponent.pm
patch
|
blob
|
history
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;
my %args = @$argsref;
+warn Dumper \%args;
$args{part_pkg} = \@part_pkg;
$args{first_svc} = \@first_svc;
$args{no_comment} = 1;
$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;
sub mason_comp {
my $packet = shift;
+use Data::Dumper;
+warn Dumper($packet);
warn "$me mason_comp called on $packet\n" if $DEBUG;
warn "$me mason_comp called on $packet\n" if $DEBUG;
@@
-145,7
+150,7
@@
sub mason_comp {
return { 'error' => 'Illegal component' };
}
return { 'error' => 'Illegal component' };
}
- my @args = $packet->{'args'} ?
$packet->{'args'
} : ();
+ my @args = $packet->{'args'} ?
@{ $packet->{'args'}
} : ();
if ( $session_comps{$comp} ) {
if ( $session_comps{$comp} ) {