From 0ad5fbd11b6296d8c92a8c82eaf415e81cb0140e Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 3 Mar 2004 08:44:55 +0000
Subject: [PATCH] 0.07

---
 Changes | 3 ++-
 SCP.pm  | 6 ++++--
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index aaf517e..53c78f1 100644
--- a/Changes
+++ b/Changes
@@ -1,8 +1,9 @@
 Revision history for Perl extension Net::SCP.
 
-0.07  unreleased
+0.07  Wed Mar  3 00:38:25 2004
 	- get and put methods use OO-style scp to avoid clobbering errstr,
 	  thanks to paguerlais@airfrance.fr
+	- remove extraneous warn
 
 0.06  Sat Apr 13 15:16:56 2002
 	- mkdir method added by Anthony Awtrey <tony@awtrey.com>
diff --git a/SCP.pm b/SCP.pm
index 5054d55..6347cae 100644
--- a/SCP.pm
+++ b/SCP.pm
@@ -1,7 +1,7 @@
 package Net::SCP;
 
 use strict;
-use vars qw($VERSION @ISA @EXPORT_OK $scp);
+use vars qw($VERSION @ISA @EXPORT_OK $scp $DEBUG);
 use Exporter;
 use Carp;
 use File::Basename;
@@ -16,6 +16,8 @@ $VERSION = '0.07';
 
 $scp = "scp";
 
+$DEBUG = 0;
+
 =head1 NAME
 
 Net::SCP - Perl extension for secure copy protocol
@@ -288,7 +290,7 @@ sub put {
   $remote = $self->{'cwd'}. "/$remote" if $self->{'cwd'} && $remote !~ /^\//;
   my $dest = $self->{'host'}. ":$remote";
   $dest = $self->{'user'}. '@'. $dest if $self->{'user'};
-  warn "scp $local $dest\n";
+  warn "scp $local $dest\n" if $DEBUG;
   $self->scp($local, $dest);
 }
 
-- 
2.11.0