r2730 - people/goneri/SvnBuildStat-WWW/script

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-05-27 22:54:28 +0000 (Sun, 27 May 2007)
New Revision: 2730

Modified:
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_import-new-report.pl
Log:
read correctly lintian log

Modified: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_import-new-report.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_import-new-report.pl	2007-05-27 22:47:34 UTC (rev 2729)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_import-new-report.pl	2007-05-27 22:54:28 UTC (rev 2730)
@@ -158,17 +158,18 @@
     foreach (split $/, $report{'lintian.log'}) {
       $lintian{$2} = $1 if (/^(.): \S*: (\S*)/);
     }
-    my @lintian;
-    foreach (keys %lintian) {
-      my $iserror = ($lintian{$_} eq "E")?1:0;
+  }
 
-      my $lintian= $schema->resultset('Lintian')->find_or_create(name => $_);
-      $lintian->iserror($iserror);
-      my $build_lintian =
-      $build->find_or_create_related('build_lintians', {
-	  lintian_id => $lintian->id});
-      $lintian->update();
-    }
+  my @lintian;
+  foreach (keys %lintian) {
+    my $iserror = ($lintian{$_} eq "E")?1:0;
+
+    my $lintian= $schema->resultset('Lintian')->find_or_create(name => $_);
+    $lintian->iserror($iserror);
+    my $build_lintian =
+    $build->find_or_create_related('build_lintians', {
+	lintian_id => $lintian->id});
+    $lintian->update();
   }
 
   # linda