diff options
Diffstat (limited to 'perl/examples/rmount_remote.pl')
| -rwxr-xr-x | perl/examples/rmount_remote.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/examples/rmount_remote.pl b/perl/examples/rmount_remote.pl index 8a8be40..e9e0866 100755 --- a/perl/examples/rmount_remote.pl +++ b/perl/examples/rmount_remote.pl @@ -137,7 +137,7 @@ while(read(STDIN,$len,9) == 9) { exit 0 if $cmd eq "bye"; die "cannot find command $cmd\n" unless exists($main::{"x_$cmd"}); @args = $main::{"x_$cmd"}(@args); - $cmd = join("\n",map {" $_"} (split("\n",Dumper(\@args))))."\n"; + $cmd = Dumper(\@args)."\n"; $cmd = sprintf("%08i\n%s",length($cmd),$cmd); print $cmd; } |