dont chop after chomp

2002-12-16 15:47:23 +00:00
parent 46111a9065
commit 2c94593c8c
1 changed files with 1 additions and 3 deletions
@@ -18,18 +18,16 @@ eval 'exec perl -S $0 ${1+"$@"}'  # -*- Mode: perl -*-

 while ($line = <STDIN>)
 {
-	chomp $line;
+    chomp $line;
    next if ($line =~ /__?GLOBAL_.F.+/);
    next if ($line =~ /__?GLOBAL_.I._GLOBAL_.D.+/);
    if ($line =~ /__?GLOBAL_.D.+/) {
        ($adr,$type,$name) = split ' ',$line,3;
-        chop $name;
        $name =~ s/^__/_/;
        @dtorlist = (@dtorlist,$name);
    };
    if ($line =~ /__?GLOBAL_.I.+/) {
        ($adr,$type,$name) = split ' ',$line,3;
-        chop $name;
        $name =~ s/^__/_/;
        @ctorlist = (@ctorlist,$name);
    };