From 2c94593c8c46621e7300d2bd5249eb34b886fd06 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Mon, 16 Dec 2002 15:47:23 +0000
Subject: [PATCH] dont chop after chomp

---
 configure/tools/munch.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/configure/tools/munch.pl b/configure/tools/munch.pl
index cd7d9464e..cd3010607 100755
--- a/configure/tools/munch.pl
+++ b/configure/tools/munch.pl
@@ -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);
     };