--- a/lib/DNS/Vi.pm	Sat May 24 23:01:17 2014 +0200
+++ b/lib/DNS/Vi.pm	Sat May 24 23:16:42 2014 +0200
@@ -8,7 +8,7 @@
 
 use base 'Exporter';
 
-our @EXPORT = qw(ttl2h h2ttl parse delta nice edit update show save);
+our @EXPORT = qw(ttl2h h2ttl parse delta nice edit update show);
 our @EXPORT_OK = ();
 
 sub parse {
@@ -187,6 +187,7 @@
     $tmp->flush();
     system $arg{-editor} => $tmp->filename;
     $tmp->seek(0, 0);
+    ${$arg{-backup}} = $tmp if $arg{-backup};
     return parse(do { local $/ = undef; <$tmp>}, {-skip => $arg{-skip}});
 }