From ec638f24b9f648a4fc8f123d97e642a8fe62409e Mon Sep 17 00:00:00 2001
From: Michael Schroeder <mls@suse.de>
Date: Mon, 7 Dec 2009 11:48:15 +0100
Subject: [PATCH] - fix epoch handling in binary query

---
 Build/Deb.pm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/Build/Deb.pm b/Build/Deb.pm
index 9d4c8ed..b44541a 100644
--- a/Build/Deb.pm
+++ b/Build/Deb.pm
@@ -241,12 +241,10 @@ sub query {
   };
   $data->{'source'} = $src if $src ne '';
   if ($opts{'evra'}) {
-    if ($res{'VERSION'} =~ /^(.*)-(.*?)$/) {
-      $data->{'version'} = $1;
-      $data->{'release'} = $2;
-    } else {
-      $data->{'version'} = $res{'VERSION'};
-    }
+    $res{'VERSION'} =~ /^(?:(\d+):)?(.*?)(?:-([^-]*))?$/s;
+    $data->{'epoch'} = $1 if defined $1;
+    $data->{'version'} = $2;
+    $data->{'release'} = $3 if defined $3;
     $data->{'arch'} = $res{'ARCHITECTURE'};
   }
   if ($opts{'description'}) {
-- 
2.7.4