# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1401919358 -7200
# Node ID 6ea7152f33a7e662adb5f201f9868550326e6058
# Parent  d8df7660e2dd5e4b5db6fbe20ec055f11f2059ed
fixed the experimental

diff -r d8df7660e2dd -r 6ea7152f33a7 bin/dnsvi
--- a/bin/dnsvi	Wed Jun 04 14:50:38 2014 +0200
+++ b/bin/dnsvi	Thu Jun 05 00:02:38 2014 +0200
@@ -98,7 +98,7 @@
 
 =head1 SYNOPSIS
 
- vidns [[-l] | [[-k key] [-s server]]] [-d] <zone> [<file>]
+ dnsvi [[-l] | [[-k key] [-s server]]] [-d] <zone> [<file>]
 
 =head1 DESCRIPTION
 
diff -r d8df7660e2dd -r 6ea7152f33a7 lib/DNS/Vi.pm
--- a/lib/DNS/Vi.pm	Wed Jun 04 14:50:38 2014 +0200
+++ b/lib/DNS/Vi.pm	Thu Jun 05 00:02:38 2014 +0200
@@ -2,12 +2,13 @@
 use 5.010;
 use strict;
 use warnings;
-no warnings 'experimental';
 use if $ENV{DEBUG}//''  eq 'dnsvi' => 'Smart::Comments';
 use Digest::SHA qw(sha512_hex);
 use File::Temp;
+use base 'Exporter';
 
-use base 'Exporter';
+# we need to survive the newer perls
+BEGIN { warnings::unimport('experimental'); }
 
 our @EXPORT = qw(ttl2h h2ttl parse delta nice edit update show);
 our @EXPORT_OK = ();
@@ -17,6 +18,9 @@
     my $data = shift;
     my @lines = split /\n/, $data;
 
+    my $x;
+    say $x;
+
     my @zone;
     my ($origin, $ttl, $last_label, $soa_seen);