diff options
| -rw-r--r-- | FS/FS/Cron/backup.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/Cron/backup.pm b/FS/FS/Cron/backup.pm index a192ca90e..7d868c882 100644 --- a/FS/FS/Cron/backup.pm +++ b/FS/FS/Cron/backup.pm @@ -58,7 +58,9 @@ sub backup { if ( $scpdest ) { eval "use Net::SCP qw(scp);"; backup_log_and_die($filename,$@) if $@; - scp("/var/tmp/$database.$ext", "$scpdest/$filename.$ext"); + my $scp = new Net::SCP; + $scp->scp("/var/tmp/$database.$ext", "$scpdest/$filename.$ext") + or backup_log_and_die($filename, $scp->{errstr}); } unlink "/var/tmp/$database.$ext" or backup_log_and_die($filename,$!); #or just warn? |