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 cfc8e3624..6e172ae4c 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_email_and_die($conf,$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_email_and_die($conf, $filename, $scp->{errstr}); } unlink "/var/tmp/$database.$ext" or backup_email_and_die($conf,$filename,$!); #or just warn? |