0.07

diff --git a/Changes b/Changes
index aaf517e..53c78f1 100644 (file)
--- 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 (file)
--- 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);
 }