Ignore COLOR, OPTIONS and EIGHTBIT keywords

master
nirenjan 2013-01-22 11:22:22 -08:00
parent 26e51adc9f
commit 92c27287b8
1 changed files with 3 additions and 2 deletions

View File

@ -29,8 +29,9 @@ while ($line = <DCFILE>) {
if ($line ne '') { if ($line ne '') {
($type, $format) = split /\s+/, $line; ($type, $format) = split /\s+/, $line;
# Ignore the TERM lines, we don't care about them here # Ignore the following lines, we don't care about them here
next if ($type eq 'TERM'); next if (($type eq 'TERM') || ($type eq 'COLOR') ||
($type eq 'OPTIONS') || ($type eq 'EIGHTBIT'));
# Just a little enhancement, if the type begins with a . # Just a little enhancement, if the type begins with a .
if ($type =~ m/^\./) { if ($type =~ m/^\./) {