# HG changeset patch # User Heiko Schlittermann (JUMPER) # Date 1422392672 -3600 # Node ID 731786b40bfb0431332c183e9faee5a20a893caf # Parent 861382731e3179b856168acf0ec6b9a621b55cf7 use smartmatch experimental if >=5.20 diff -r 861382731e31 -r 731786b40bfb lib/DNS/Vi.pm --- a/lib/DNS/Vi.pm Tue Jan 27 21:55:42 2015 +0100 +++ b/lib/DNS/Vi.pm Tue Jan 27 22:04:32 2015 +0100 @@ -1,5 +1,5 @@ package DNS::Vi; -use 5.010; +use 5.0101; use strict; use warnings; use if $ENV{DEBUG} // '' eq 'dnsvi' => 'Smart::Comments'; @@ -7,7 +7,8 @@ use File::Temp; use Term::ReadKey; use base 'Exporter'; -use experimental 'smartmatch'; +use if $] >= 5.020, experimental => 'smartmatch'; + #no if $warnings::Offset{'experimental'} => (warnings => 'experimental');