From e215e7a2859804f1084813d264d3737809d57f99 Mon Sep 17 00:00:00 2001 From: Mark Glines Date: Wed, 26 Jun 2002 05:42:31 +0000 Subject: updated MANIFEST to reflect lack of examples in same dir made rmount/rmount_remote binary-clean (oops) --- perl/examples/rmount_remote.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl/examples/rmount_remote.pl') 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; } -- cgit v1.2.3