equal
deleted
inserted
replaced
7 my %all; |
7 my %all; |
8 grep { $all{$_} = 0 } @_; |
8 grep { $all{$_} = 0 } @_; |
9 return ( keys %all ); |
9 return ( keys %all ); |
10 } |
10 } |
11 |
11 |
12 # liest die Konfiguration ein |
12 # liest die Konfiguration |
13 my @configs = ( "$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf" ); |
13 my @configs = ( "$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf" ); |
14 my %config; |
14 my %config; |
15 |
15 |
16 for ( grep {-f} @configs ) { |
16 for ( grep {-f} @configs ) { |
17 open( CONFIG, $_ ) or die "Can't open $_: $!\n"; |
17 open( CONFIG, $_ ) or die "Can't open $_: $!\n"; |