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;
$scp = "scp";
+$DEBUG = 0;
+
=head1 NAME
Net::SCP - Perl extension for secure copy protocol
$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);
}