--- 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';