# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1401919822 -7200
# Node ID 6d79c81a29313883d8eef6e9033903a2009c1e29
# Parent  6ea7152f33a7e662adb5f201f9868550326e6058
fixed the warnings 'experimental' issue in a more clean way

diff -r 6ea7152f33a7 -r 6d79c81a2931 lib/DNS/Vi.pm
--- a/lib/DNS/Vi.pm	Thu Jun 05 00:02:38 2014 +0200
+++ b/lib/DNS/Vi.pm	Thu Jun 05 00:10:22 2014 +0200
@@ -6,9 +6,8 @@
 use Digest::SHA qw(sha512_hex);
 use File::Temp;
 use base 'Exporter';
-
-# we need to survive the newer perls
-BEGIN { warnings::unimport('experimental'); }
+no if $^V ge v5.16.0 => (warnings => 'experimental');
+#no if $warnings::Offset{'experimental'} => (warnings => 'experimental');
 
 our @EXPORT = qw(ttl2h h2ttl parse delta nice edit update show);
 our @EXPORT_OK = ();
@@ -18,9 +17,6 @@
     my $data = shift;
     my @lines = split /\n/, $data;
 
-    my $x;
-    say $x;
-
     my @zone;
     my ($origin, $ttl, $last_label, $soa_seen);