summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-02-18 12:34:10 +0000
committerThierry Vignaud <tv@mandriva.org>2009-02-18 12:34:10 +0000
commit7def7797b44018aa6ac83334c67d775ff47238d8 (patch)
tree620e55e5e9516f8eb5e08ff94007345228c48a1d /perl-install/install
parentde21444e225aa772875927bee4e094eaab71d8a7 (diff)
downloaddrakx-7def7797b44018aa6ac83334c67d775ff47238d8.tar
drakx-7def7797b44018aa6ac83334c67d775ff47238d8.tar.gz
drakx-7def7797b44018aa6ac83334c67d775ff47238d8.tar.bz2
drakx-7def7797b44018aa6ac83334c67d775ff47238d8.tar.xz
drakx-7def7797b44018aa6ac83334c67d775ff47238d8.zip
rename 'key_ids' as 'key-ids' in order to follow urpmi naming policy
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/media.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index a009e3f12..08337f757 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -30,7 +30,7 @@ use urpm::download;
#- fakemedium ("$name ($rpmsdir)", used locally by urpmi)
#- rel_hdlist
#- hdlist_size
-#- key_ids (hashref, values are key ids)
+#- key-ids (hashref, values are key ids)
#- name (text description)
#- pubkey (array containing all the keys to import)
#- phys_medium
@@ -929,7 +929,7 @@ sub install_urpmi {
my ($id, $imported) = @_;
if ($id) {
log::l(($imported ? "imported" : "found") . " key=$id for medium $medium->{name}");
- $medium->{key_ids}{$id} = undef;
+ $medium->{'key-ids'}{$id} = undef;
}
});
unlink $medium->{pubkey};
@@ -967,8 +967,8 @@ sub install_urpmi {
#- output new urpmi.cfg format here.
push @cfg, map { "$_\n" }
"$qname $qdir {",
- if_(keys(%{$medium->{key_ids}}),
- " key-ids: " . join(',', keys %{$medium->{key_ids}})),
+ if_(keys(%{$medium->{'key-ids'}}),
+ " key-ids: " . join(',', keys %{$medium->{'key-ids'}})),
if_($removable_device,
" removable: $removable_device"),
if_($medium->{update},