|
Lines 36-43
Link Here
|
| 36 |
my $line = ""; |
36 |
my $line = ""; |
| 37 |
my $backslashed_line; |
37 |
my $backslashed_line; |
| 38 |
|
38 |
|
| 39 |
my $separator; |
39 |
my $separator = $colon ? qr/:\s+/ : qr/\s+/; |
| 40 |
my $oseparator; |
40 |
my $oseparator = $colon ? ":\t" : "\t"; |
| 41 |
|
41 |
|
| 42 |
my $debug = defined($ARGV[0]) && $ARGV[0] eq "-d"; |
42 |
my $debug = defined($ARGV[0]) && $ARGV[0] eq "-d"; |
| 43 |
|
43 |
|
|
Lines 182-188
Link Here
|
| 182 |
sub write_comment ($) |
182 |
sub write_comment ($) |
| 183 |
{ |
183 |
{ |
| 184 |
my $comment = shift; |
184 |
my $comment = shift; |
| 185 |
foreach my $line (split /\n/, $comment) |
185 |
foreach my $line (split /\n/, $comment || "") |
| 186 |
{ |
186 |
{ |
| 187 |
print FILE "\#$line\n"; |
187 |
print FILE "\#$line\n"; |
| 188 |
} |
188 |
} |
|
Lines 220-228
Link Here
|
| 220 |
|
220 |
|
| 221 |
sub Read () |
221 |
sub Read () |
| 222 |
{ |
222 |
{ |
| 223 |
$separator = $colon ? qr/:\s+/ : qr/\s+/; |
|
|
| 224 |
$oseparator = $colon ? ":\t" : "\t"; |
| 225 |
|
| 226 |
parse_file (); |
223 |
parse_file (); |
| 227 |
$modified = 0; |
224 |
$modified = 0; |
| 228 |
|
225 |
|