[Collab-qa-commits] r582 - svnbuildstat/trunk/lib/SvnBuildStat

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-12-12 20:58:20 +0000 (Wed, 12 Dec 2007)
New Revision: 582

Modified:
   svnbuildstat/trunk/lib/SvnBuildStat/Common.pm
Log:
remove control char from the opened files to avoid breakage

Modified: svnbuildstat/trunk/lib/SvnBuildStat/Common.pm
===================================================================
--- svnbuildstat/trunk/lib/SvnBuildStat/Common.pm	2007-12-12 20:39:19 UTC (rev 581)
+++ svnbuildstat/trunk/lib/SvnBuildStat/Common.pm	2007-12-12 20:58:20 UTC (rev 582)
@@ -147,6 +147,7 @@
 
   open CONTROL, "<$controlfile" or return;
   foreach (<CONTROL>) {
+    s/[[:cntrl:]]//g;
     $ret->{packagesrc} = $1 if /^Source:\ *(.*)/;
     if (/^(Maintainer|Uploaders):\ *(.*)/) {
       my $tmp = $2;
@@ -188,6 +189,7 @@
   }
 
   foreach (@changelog) {
+    s/[[:cntrl:]]//g;
     if (/^\S/ && $ret->{currentchangelogentry}) {
       # I ignore svn-bp empty template entry
       if ($ret->{currentchangelogentry} =~ /^.*\n\s\s\*\sNOT RELEASED YET\n\n\s--.*/m) {