forgot to commit this earlier: removed some debugging, and enabled full functionality.

diff --git a/perl/examples/rmount.pl b/perl/examples/rmount.pl
index 2c50791eba3d9ed8df4cecb719f878c3119cc8db..9ae1cc1ad4e00cacc9de8da062e392189bf8b83a 100755 (executable)
--- a/perl/examples/rmount.pl
+++ b/perl/examples/rmount.pl
@@ -30,7 +30,6 @@ map { my ($str) = $_; $args{$str} = sub { netlink($str,@_) } }
 sub connect_remote {
        sshopen2($host, *READER, *WRITER, "./rmount_remote.pl $dir")
                or die "ssh: $!\n";
-#      open2(*READER,*WRITER,"./rmount_remote.pl $dir");
        select WRITER;
        $| = 1;
        select STDOUT;