X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=SCP.pm;h=2b19b7e1d7a9f093a3bd089ce36f13945eaf3072;hb=ccd12a399c6ae2e175d78039583a4d5ac3a826a5;hp=5054d555889f81c36e563dc9cba139c1c18b679b;hpb=8547d9d587841c70f11f57ce0f2968ea1e0511ae;p=Net-SCP.git

diff --git a/SCP.pm b/SCP.pm
index 5054d55..2b19b7e 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;
@@ -12,10 +12,12 @@ use IPC::Open3;
 
 @ISA = qw(Exporter);
 @EXPORT_OK = qw( scp iscp );
-$VERSION = '0.07';
+$VERSION = '0.08';
 
 $scp = "scp";
 
+$DEBUG = 0;
+
 =head1 NAME
 
 Net::SCP - Perl extension for secure copy protocol
@@ -229,8 +231,8 @@ sub mkdir {
                       '/bin/mkdir', '-p ', shell_quote($directory) );
   waitpid $pid, 0;
   if ( $? >> 8 ) {
-    chomp(my $errstr = <$error>);
-    $self->{errstr} = $errstr || "mkdir exited with status ". $?>>8;
+    chomp(my $errstr = <$error> || '');
+    $self->{errstr} = $errstr || "mkdir exited with status ". ($?>>8);
     return 0;
   }
   1;
@@ -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);
 }