equal
deleted
inserted
replaced
42 use strict; |
42 use strict; |
43 use warnings; |
43 use warnings; |
44 use Getopt::Long qw(GetOptionsFromArray); |
44 use Getopt::Long qw(GetOptionsFromArray); |
45 use Net::DNS; |
45 use Net::DNS; |
46 use Pod::Usage; |
46 use Pod::Usage; |
47 use Smart::Comments; |
47 use if $ENV{DEBUG} => 'Smart::Comments'; |
48 |
48 |
49 sub uniq { my %h; @h{@_} = (); return keys %h; } |
49 sub uniq { my %h; @h{@_} = (); return keys %h; } |
50 |
50 |
51 # return a list of the zones known to the local |
51 # return a list of the zones known to the local |
52 # bind |
52 # bind |