equal
deleted
inserted
replaced
6 |
6 |
7 use FindBin; |
7 use FindBin; |
8 use File::Basename; |
8 use File::Basename; |
9 use Pod::Usage; |
9 use Pod::Usage; |
10 use Getopt::Long; |
10 use Getopt::Long; |
11 use Smart::Comments; |
|
12 use File::Temp; |
11 use File::Temp; |
13 use POSIX qw(strftime); |
12 use POSIX qw(strftime); |
|
13 use if $ENV{DEBUG} => "Smart::Comments"; |
14 |
14 |
15 sub uniq(@); |
15 sub uniq(@); |
16 sub read_conf(@); |
16 sub read_conf(@); |
17 sub zones(@); |
17 sub zones(@); |
18 sub changed_zones(); |
18 sub changed_zones(); |