From 26da3775375d12a7378454660510eabecb55c611 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 17 Jan 2001 15:56:52 +0000 Subject: fixed glitches when reading old urpmi.cfg file. --- urpm.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'urpm.pm') diff --git a/urpm.pm b/urpm.pm index cf7cf3e6..bd35a4b2 100644 --- a/urpm.pm +++ b/urpm.pm @@ -93,7 +93,7 @@ sub read_config { open F, $urpm->{config}; #- no filename can be allowed on some case while () { chomp; s/#.*$//; s/\s*$//; - /^\s*(.*?[^\\])\s+(?:(.*?[^\\])\s+)?\{$/ and do { #- urpmi.cfg format extention + /^\s*(.*?[^\\])\s+(?:(.*?[^\\])\s+)?{$/ and do { #- urpmi.cfg format extention my $medium = { name => unquotespace($1), clear_url => unquotespace($2) }; while () { chomp; s/#.*$//; s/\s*$//; @@ -114,7 +114,7 @@ sub read_config { $urpm->probe_medium($medium); push @{$urpm->{media}}, $medium; next; }; - /^\s+(.*?[^\\])\s+(?:(.*?[^\\])\s*)$/ and do { #- urpmi.cfg old format (assume hdlist..cz2?) + /^\s*(.*?[^\\])\s+(?:(.*?[^\\])\s*)?$/ and do { #- urpmi.cfg old format (assume hdlist..cz2?) my $medium = { name => unquotespace($1), clear_url => unquotespace($2) }; $urpm->probe_medium($medium); push @{$urpm->{media}}, $medium; -- cgit v1.2.1