From 95d22578373305dd73a5dc53ce17ccfd254349ff Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 24 Nov 2006 08:34:15 +0000
Subject: fix protocol_from_url for things like /foo/@86875:bar.src.rpm

---
 urpm.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'urpm.pm')

diff --git a/urpm.pm b/urpm.pm
index 8a6c7792..ecb4d016 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -13,7 +13,7 @@ use urpm::cfg;
 use urpm::md5sum;
 use MDV::Distribconf;
 
-our $VERSION = '4.9.0';
+our $VERSION = '4.9.1';
 our @ISA = qw(URPM Exporter);
 our @EXPORT_OK = 'file_from_local_url';
 
@@ -57,7 +57,7 @@ sub new {
 
 sub protocol_from_url {
     my ($url) = @_;
-    $url =~ m!^([^:_]*)[^:]*:! && $1;
+    $url =~ m!^(\w+)(_[^:]*)?:! && $1;
 }
 sub file_from_local_url {
     my ($url) = @_;
-- 
cgit v1.2.1