# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1422445860 -3600
# Node ID 4be1e29fb7f040d242d9f5f8a1fd11d4f6613809
# Parent  d706710b95f0221cc61fb21c9c7857216b106a00
fixed mising backup after reloading a ,dnsvi* file

diff -r d706710b95f0 -r 4be1e29fb7f0 bin/dnsvi
--- a/bin/dnsvi	Tue Jan 27 22:07:35 2015 +0100
+++ b/bin/dnsvi	Wed Jan 28 12:51:00 2015 +0100
@@ -10,6 +10,7 @@
 use Pod::Usage;
 use File::Copy;
 use DNS::Vi;
+use if $] >= 5.020, experimental => 'smartmatch';
 
 sub slurp {
     local $/    = undef;
@@ -131,8 +132,10 @@
         }
       )
       or do {
-	  copy($backup->filename, ",dnsvi-$$")
-          and say "Saved as ',dnsvi-$$'";
+	  if ($backup) {
+	    copy($backup->filename, ",dnsvi-$$")
+	    and say "Saved as ',dnsvi-$$'";
+	  }
       };
 
     goto CONFIRM if $_ eq 'V';