updated MANIFEST to reflect lack of examples in same dir

made rmount/rmount_remote binary-clean (oops)

2 files changed, 2 insertions, 2 deletions

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;
 }