equal
deleted
inserted
replaced
6 use File::Spec::Functions qw(catfile rel2abs abs2rel canonpath); |
6 use File::Spec::Functions qw(catfile rel2abs abs2rel canonpath); |
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 $^V >= v5.18 => (experimental => qw/smartmatch/); |
11 use if (not $^V < v5.19) => (experimental => qw/smartmatch/); |
|
12 no if ($^V < v5.19) => (warnings => 'experimental'); |
12 |
13 |
13 our $VERSION = '0.0'; |
14 our $VERSION = '0.0'; |
14 |
15 |
15 my $opt_force = 0; |
16 my $opt_force = 0; |
16 |
17 |