working stdin_string!
authorivan <ivan>
Tue, 2 Jul 2002 14:28:27 +0000 (14:28 +0000)
committerivan <ivan>
Tue, 2 Jul 2002 14:28:27 +0000 (14:28 +0000)
SSH.pm

diff --git a/SSH.pm b/SSH.pm
index d3a8c22..35d20b3 100644 (file)
--- a/SSH.pm
+++ b/SSH.pm
@@ -107,7 +107,7 @@ sub ssh_cmd {
     $host = $opt->{user}. '@'. $host if exists $opt->{user};
     @command = ( $opt->{command} );
     push @command, @{ $opt->{args} } if exists $opt->{args};
-    my $stdin_string = $opt->{stdin_string};
+    $stdin_string = $opt->{stdin_string};
   } else {
     ($host, @command) = @_;
     undef $stdin_string;