switch to compatibility level 12

[debbugs.git] / Debbugs / Versions / Dpkg.pm

diff --git a/Debbugs/Versions/Dpkg.pm b/Debbugs/Versions/Dpkg.pm
index 9745cbb4b28ab1886b982d041050173d3b8715bf..aa9d9376ffb3b1ff75e97ed2f848fe5986ea4655 100644 (file)
--- a/Debbugs/Versions/Dpkg.pm
+++ b/Debbugs/Versions/Dpkg.pm
@@ -43,7 +43,7 @@ sub parseversion ($)
     {
        $verhash{epoch} = 0;
     }
-    if ($ver =~ /(.+)-(.+)$/)
+    if ($ver =~ /(.+)-(.*)$/)
     {
        $verhash{version} = $1;
        $verhash{revision} = $2;
@@ -74,7 +74,7 @@ sub verrevcmp($$)
          #           : (x) + 256)
          # This comparison is out of dpkg's order to avoid
          # comparing things to undef and triggering warnings.
-         if (not defined $x) {
+         if (not defined $x or not length $x) {
               return 0;
          }
          elsif ($x eq '~') {
@@ -124,7 +124,7 @@ sub verrevcmp($$)
          }
          return 1 if defined $vc and $vc =~ /^\d$/;
          return -1 if defined $rc and $rc =~ /^\d$/;
-         return $first_diff if $first_diff;
+         return (($first_diff  > 0) ? 1 : -1) if $first_diff;
      }
      return 0;
 }