r8891 - /scripts/qa/DebianQA/Watch.pm

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Tue Nov  6 06:33:51 2007
New Revision: 8891

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

Modified:
    scripts/qa/DebianQA/Watch.pm

Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=8891&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Tue Nov  6 06:33:51 2007
@@ -176,8 +176,8 @@
             }
         }
     }
-    my @order = sort({ deb_compare($mangled[$a], $mangled[$b]) } (0..$#vers))
-        or return("Invalid");
+    return("Invalid") unless(@vers);
+    my @order = sort({ deb_compare($mangled[$a], $mangled[$b]) } (0..$#vers));
     return(undef, $vers[$order[-1]], $mangled[$order[-1]]);
 }
 sub cpan_lookup($$) {