- urpmi.addmedia

  o fix reconfig.urpmi use

(backport from trunk)

without this, one gets:

foo urlxxx {
}

2 files changed, 6 insertions, 5 deletions

diff --git a/NEWS b/NEWS
index db55c61c..078e9b18 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,7 @@
 - urpmi
   o [bugfix] fix plural handling in "Packages foo can not be installed" (#31229)
+- urpmi.addmedia
+  o [bugfix] fix reconfig.urpmi use
 - urpmf
   o bug fix -m (#31452)
 
diff --git a/urpm/media.pm b/urpm/media.pm
index 7c96faa5..dd73085e 100644
--- a/urpm/media.pm
+++ b/urpm/media.pm
@@ -919,7 +919,7 @@ sub may_reconfig_urpmi {
 	urpm::download::sync($urpm, $medium, [ reduce_pathname("$medium->{url}/reconfig.urpmi") ], quiet => 1);
     }
     if (-s $f) {
-	reconfig_urpmi($urpm, $f, $medium->{name});
+	reconfig_urpmi($urpm, $f, $medium);
     }
     unlink $f if !file_from_local_url($medium->{url});
 }
@@ -935,10 +935,10 @@ sub may_reconfig_urpmi {
 #-    # this is an urpmi reconfiguration file
 #-    /cooker /cooker/$ARCH
 sub reconfig_urpmi {
-    my ($urpm, $rfile, $name) = @_;
+    my ($urpm, $rfile, $medium) = @_;
     -r $rfile or return;
 
-    $urpm->{log}(N("reconfiguring urpmi for media \"%s\"", $name));
+    $urpm->{log}(N("reconfiguring urpmi for media \"%s\"", $medium->{name}));
 
     my ($magic, @lines) = cat_($rfile);
     #- the first line of reconfig.urpmi must be magic, to be sure it's not an error file
@@ -956,7 +956,6 @@ sub reconfig_urpmi {
     my $reconfigured = 0;
     my @reconfigurable = qw(url with_hdlist media_info_dir);
 
-    my $medium = name2medium($urpm, $name) or return;
     my %orig = %$medium;
 
   URLS:
@@ -984,7 +983,7 @@ sub reconfig_urpmi {
 
     if ($reconfigured) {
 	$urpm->{log}(N("reconfiguration done"));
-	write_config($urpm);
+	$urpm->{modified} = 1;
     }
     $reconfigured;
 }