From: Mark Glines <mark@glines.org>
Date: Wed, 26 Jun 2002 05:42:31 +0000 (+0000)
Subject: updated MANIFEST to reflect lack of examples in same dir
X-Git-Tag: debian_version_1_0-1~31
X-Git-Url: http://git.maquefel.me/?a=commitdiff_plain;h=e215e7a2859804f1084813d264d3737809d57f99;p=qemu-gpiodev%2Flibfuse.git

updated MANIFEST to reflect lack of examples in same dir
made rmount/rmount_remote binary-clean (oops)
---

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