diff options
| author | Mark Glines <mark@glines.org> | 2002-06-26 05:42:31 +0000 |
|---|---|---|
| committer | Mark Glines <mark@glines.org> | 2002-06-26 05:42:31 +0000 |
| commit | e215e7a2859804f1084813d264d3737809d57f99 (patch) | |
| tree | fd5c286f7d045e530c20a492986ecf046c022f36 /perl/examples/rmount_remote.pl | |
| parent | 34f1a73ae024aba08f1222ffaa4a4dd30b505c20 (diff) | |
| download | libfuse-e215e7a2859804f1084813d264d3737809d57f99.tar.gz | |
updated MANIFEST to reflect lack of examples in same dir
made rmount/rmount_remote binary-clean (oops)
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; } |