summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--urpm/cfg.pm11
1 files changed, 9 insertions, 2 deletions
diff --git a/urpm/cfg.pm b/urpm/cfg.pm
index ec8f064a..191b2108 100644
--- a/urpm/cfg.pm
+++ b/urpm/cfg.pm
@@ -3,6 +3,7 @@ package urpm::cfg;
use strict;
use warnings;
use urpm::util;
+use urpm::msg 'N';
=head1 NAME
@@ -70,8 +71,14 @@ sub load_config ($) {
$medium = '';
next;
}
- if (/^(.*?[^\\])\s+(?:(.*?[^\\])\s+)?{$/) { #-} medium definition
- $config{ $medium = unquotespace $1 }{url} = unquotespace $2;
+ if (/^(.*?[^\\])\s+(?:(.*?[^\\])\s+)?{$/) { #- medium definition
+ $medium = unquotespace $1;
+ if ($config{$medium}) {
+ #- hmm, somebody fudged urpmi.cfg by hand.
+ $err = N("medium `%s' is defined twice, aborting", $medium);
+ return;
+ }
+ $config{$medium}{url} = unquotespace $2;
next;
}
#- config values