From e215e7a2859804f1084813d264d3737809d57f99 Mon Sep 17 00:00:00 2001 From: Mark Glines Date: Wed, 26 Jun 2002 05:42:31 +0000 Subject: [PATCH] updated MANIFEST to reflect lack of examples in same dir made rmount/rmount_remote binary-clean (oops) --- perl/MANIFEST | 1 - perl/examples/rmount.pl | 2 +- perl/examples/rmount_remote.pl | 2 +- 3 files changed, 2 insertions(+), 3 deletions(-) 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; } -- 2.30.2