From 1a7871e7957dfed98e328f02277c44f01cc56950 Mon Sep 17 00:00:00 2001 From: Wolfgang Link Date: Tue, 19 May 2015 07:02:47 +0200 Subject: [PATCH] add missing close for FH, also catch and handle exception. Signed-off-by: Wolfgang Link --- pve-zsync | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/pve-zsync b/pve-zsync index f2ca1c5..47e7b59 100644 --- a/pve-zsync +++ b/pve-zsync @@ -123,6 +123,8 @@ sub read_from_config { unlock($fh); + close($fh); + my $cfg = encode_config($text); return $cfg; @@ -365,7 +367,11 @@ sub init { &$add_job($vm, $name); } - sync($param) if !$param->{skip}; + eval {sync($param) if !$param->{skip};}; + if(my $err = $@) { + destroy($param); + print $err; + } } sub destroy { @@ -440,6 +446,7 @@ sub sync { snapshot_destroy($source, $dest, $method, $source->{old_snap}) if ($source->{destroy} && $source->{old_snap}); + if ($job_status && $job_status eq "exist") { my $conf_name = $source->{abs_path}; $conf_name = $source->{vmid} if $source->{vmid}; @@ -567,7 +574,7 @@ sub cron_del { close($fh); while ($text && $text =~ s/^(.*?)(\n|$)//) { my $line = $1.$2; - if ($line !~ m/.*$PROGNAME.*$source.*$name.*/){ + if ($line !~ m/.*$PROGNAME.*$source.*$name.*/){ $buffer .= $line; } } -- 2.39.2