@ISA = qw(Exporter);
@EXPORT_OK = qw( scp iscp );
-$VERSION = '0.06';
+$VERSION = '0.07';
$scp = "scp";
$local ||= basename($remote);
my $source = $self->{'host'}. ":$remote";
$source = $self->{'user'}. '@'. $source if $self->{'user'};
- scp($source,$local);
+ $self->scp($source,$local);
}
=item mkdir DIRECTORY
my $dest = $self->{'host'}. ":$remote";
$dest = $self->{'user'}. '@'. $dest if $self->{'user'};
warn "scp $local $dest\n";
- scp($local, $dest);
+ $self->scp($local, $dest);
}
=item binary