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 9d7f036a00c49ece640e9873daf4b56ab903f1dd..3012c026dd85a78aa7375ecd891db35c32378a4b 100644 (file)
--- 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 eef8ed837ebdb79f6500370bc10741030a465e0c..2c50791eba3d9ed8df4cecb719f878c3119cc8db 100755 (executable)
--- 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 8a8be4082d82e340640bc9248501541d7e1a8e2a..e9e0866168522b8a048f9769bb27b041ad6418d2 100755 (executable)
--- 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;
 }