1 files changed, 5 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index b73ee0e3cff..9713c87b90a 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -83,7 +83,11 @@ sub from_fh {
   my $size;
 
   while (my $line = <$fh>) {
+    # we do not worry about whitespace at the end of a line;
+    # that would be a bug in the db creation, and it takes some
+    # noticeable time to get rid of it.  So just chomp.
     chomp($line);
+    
     # we call tllog only when something will be logged, to speed things up.
     # this is the inner loop bounding the time to read tlpdb.
     dddebug("reading line: >>>$line<<<\n") if ($::opt_verbosity >= 3);
@@ -111,8 +115,7 @@ sub from_fh {
         die("Continuation of $lastcmd not allowed, please fix tlpobj: line = $line!\n");
       }
     }
-    # remove white space at the end of a line
-    $line =~ s/\s*$//;
+    
     if ($line =~ /^name\s*([-.\w]+)/o) {
       $name = "$1";
       $lastcmd = "name";