diff options
| -rw-r--r-- | perl/MANIFEST | 1 | ||||
| -rwxr-xr-x | perl/examples/rmount.pl | 2 | ||||
| -rwxr-xr-x | perl/examples/rmount_remote.pl | 2 |
3 files changed, 2 insertions, 3 deletions
diff --git a/perl/MANIFEST b/perl/MANIFEST index 9d7f036..3012c02 100644 --- a/perl/MANIFEST +++ b/perl/MANIFEST @@ -5,4 +5,3 @@ Makefile.PL MANIFEST README test.pl -example.pl diff --git a/perl/examples/rmount.pl b/perl/examples/rmount.pl index eef8ed8..2c50791 100755 --- a/perl/examples/rmount.pl +++ b/perl/examples/rmount.pl @@ -47,7 +47,7 @@ $SIG{CHLD} = sub { connect_remote; sub netlink { - my ($str) = join("\n",map {" $_"} (split("\n",Dumper(\@_))))."\n"; + my ($str) = Dumper(\@_)."\n"; $str = sprintf("%08i\n%s",length($str),$str); while(1) { # retry as necessary my ($sig) = $SIG{ALRM}; 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; } |