Added chomp.

This commit is contained in:
Janet B. Anderson
2002-12-13 15:27:42 +00:00
parent 483d1ea3f0
commit ed92859eaf

View File

@@ -18,6 +18,7 @@ eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
while ($line = <STDIN>)
{
chomp $line;
next if ($line =~ /__?GLOBAL_.F.+/);
next if ($line =~ /__?GLOBAL_.I._GLOBAL_.D.+/);
if ($line =~ /__?GLOBAL_.D.+/) {