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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-12-13 23:04:37 +0000 (Thu, 13 Dec 2007)
New Revision: 585

Modified:
   svnbuildstat/trunk/lib/SvnBuildStat/Common.pm
Log:
remove non utf8 char
find correctly svndebrelease


Modified: svnbuildstat/trunk/lib/SvnBuildStat/Common.pm
===================================================================
--- svnbuildstat/trunk/lib/SvnBuildStat/Common.pm	2007-12-13 20:57:39 UTC (rev 584)
+++ svnbuildstat/trunk/lib/SvnBuildStat/Common.pm	2007-12-13 23:04:37 UTC (rev 585)
@@ -145,7 +145,7 @@
 
   my $ret = { maintainers => []};
 
-  open CONTROL, "<$controlfile" or return;
+  open CONTROL, "<:encoding(UTF-8)", $controlfile or return;
   foreach (<CONTROL>) {
     s/[[:cntrl:]]//g;
     $ret->{packagesrc} = $1 if /^Source:\ *(.*)/;
@@ -181,10 +181,10 @@
 
   my $ret;
 
-  open CHANGELOG, "<$changelogfile" or return;
+  open CHANGELOG, "<:encoding(UTF-8)", $changelogfile or return;
   my  @changelog = <CHANGELOG>;
   return unless (@changelog);
-  if ($changelog[0] =~ /^.*\ \((.*)\)/) {
+  if ($changelog[0] =~ /^\S+\s\((.*?)\)/) {
     $ret->{realsvndebrelease} = $1;
   }
 
@@ -201,7 +201,7 @@
     $ret->{currentchangelogentry} .= $_;
   }
 
-  if ($ret->{currentchangelogentry} =~ /^.*\ \((.*)\)/) {
+  if ($ret->{currentchangelogentry} =~ /^\S+\s\((.*)\)/) {
     $ret->{svndebrelease} = $1; 
   }
   # looks for bug closed in the changelog entry