summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2006-11-24 08:34:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2006-11-24 08:34:15 +0000
commit95d22578373305dd73a5dc53ce17ccfd254349ff (patch)
treeb7724ff579978b33c7d638082864c4c96849508b
parentcaa9410908a3384c3d4da58266d72e39373c4438 (diff)
downloadurpmi-95d22578373305dd73a5dc53ce17ccfd254349ff.tar
urpmi-95d22578373305dd73a5dc53ce17ccfd254349ff.tar.gz
urpmi-95d22578373305dd73a5dc53ce17ccfd254349ff.tar.bz2
urpmi-95d22578373305dd73a5dc53ce17ccfd254349ff.tar.xz
urpmi-95d22578373305dd73a5dc53ce17ccfd254349ff.zip
fix protocol_from_url for things like /foo/@86875:bar.src.rpm
-rw-r--r--urpm.pm4
1 files changed, 2 insertions, 2 deletions
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) = @_;