From cbc06e7ddd0206b1406c7fc06bd0dcec52b4a06f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 19 Sep 2001 18:13:21 +0000
Subject: [PATCH] debugging

---
 SSH.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/SSH.pm b/SSH.pm
index b56a17f..2c50547 100644
--- a/SSH.pm
+++ b/SSH.pm
@@ -1,7 +1,7 @@
 package Net::SSH;
 
 use strict;
-use vars qw($VERSION @ISA @EXPORT_OK $ssh);
+use vars qw($VERSION @ISA @EXPORT_OK $ssh $DEBUG);
 use Exporter;
 use IPC::Open2;
 use IPC::Open3;
@@ -10,6 +10,8 @@ use IPC::Open3;
 @EXPORT_OK = qw( ssh issh sshopen2 sshopen3 );
 $VERSION = '0.02';
 
+$DEBUG = 0;
+
 $ssh = "ssh";
 
 =head1 NAME
@@ -45,6 +47,8 @@ Calls ssh in batch mode.
 sub ssh {
   my($host, @command) = @_;
   my @cmd = ($ssh, '-o', 'BatchMode yes', $host, @command);
+  warn "[Net::SSH::ssh] executing ". join(' ', @cmd). "\n"
+    if $DEBUG;
   system(@cmd);
 }
 
-- 
2.20.1