equal
deleted
inserted
replaced
7 use Sys::Hostname; |
7 use Sys::Hostname; |
8 use autodie; |
8 use autodie; |
9 use Getopt::Long; |
9 use Getopt::Long; |
10 use English qw(-no_match_vars); |
10 use English qw(-no_match_vars); |
11 use if (not $^V < v5.19) => (experimental => qw/smartmatch/); |
11 use if (not $^V < v5.19) => (experimental => qw/smartmatch/); |
12 no if ($^V < v5.19) => (warnings => 'experimental'); |
12 no if ($^V < v5.19) => (warnings => 'experimental'); |
13 |
13 |
14 our $VERSION = '0.0'; |
14 our $VERSION = '0.0'; |
15 |
15 |
16 my $opt_force = 0; |
16 my $opt_force = 0; |
17 |
17 |