r9583 - /scripts/qa/DebianQA/Classification.pm

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Mon Nov 19 04:42:52 UTC 2007


Author: tincho-guest
Date: Mon Nov 19 04:42:52 2007
New Revision: 9583

URL: http://svn.debian.org/wsvn/?sc=1&rev=9583
Log:
typo

Modified:
    scripts/qa/DebianQA/Classification.pm

Modified: scripts/qa/DebianQA/Classification.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Classification.pm?rev=9583&op=diff
==============================================================================
--- scripts/qa/DebianQA/Classification.pm (original)
+++ scripts/qa/DebianQA/Classification.pm Mon Nov 19 04:42:52 2007
@@ -115,7 +115,7 @@
             $status{has_bugs} = 1;
         }
         my %hilight;
-        foreach(keys %$status) {
+        foreach(keys %status) {
             die "Internal error: $_ is not a valid status" unless(
                 $error_hilight{$_});
             $hilight{$error_hilight{$_}} = 1;
@@ -134,7 +134,7 @@
             hilight => \%hilight
         };
     }
-    return $res;
+    return \%res;
 }
 
 1;




More information about the Pkg-perl-cvs-commits mailing list