equal
deleted
inserted
replaced
29 |
29 |
30 for ( grep {-f} @templc ) { |
30 for ( grep {-f} @templc ) { |
31 open( TEMPCONF, $_ ) or die "Can't open $_: $!\n"; |
31 open( TEMPCONF, $_ ) or die "Can't open $_: $!\n"; |
32 } |
32 } |
33 unless ( seek( TEMPCONF, 0, 0 ) ) { |
33 unless ( seek( TEMPCONF, 0, 0 ) ) { |
34 die "Can't open config (searched: @templc)\n"; |
34 die "Can't open template (searched: @templc)\n"; |
35 } |
35 } |
36 |
36 |
37 for ( grep {-f} @templz ) { |
37 for ( grep {-f} @templz ) { |
38 open( TEMPZONE, $_ ) or die "Can't open $_: $!\n"; |
38 open( TEMPZONE, $_ ) or die "Can't open $_: $!\n"; |
39 } |
39 } |
40 unless ( seek( TEMPZONE, 0, 0 ) ) { |
40 unless ( seek( TEMPZONE, 0, 0 ) ) { |
41 die "Can't open config (searched: @templz)\n"; |
41 die "Can't open template (searched: @templz)\n"; |
42 } |
42 } |
43 |
43 |
44 while (<CONFIG>) { |
44 while (<CONFIG>) { |
45 chomp; |
45 chomp; |
46 s/#.*//; |
46 s/#.*//; |