summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index df5f02ba2..c7805f761 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -430,7 +430,7 @@ sub setPackages {
useMedium($prev_asked_medium);
last SUPPL;
}
- my $tmphdlistfile = pkgs::urpmidir($o->{prefix})."/hdlist$medium_name.cz";
+ my $tmphdlistfile = pkgs::urpmidir($o->{prefix}) . "/hdlist$medium_name.cz";
open(my $f2, ">", $tmphdlistfile);
local $_;
while (<$f>) { syswrite($f2, $_) }
@@ -712,7 +712,7 @@ sub install_urpmi {
$packages->import_needed_pubkeys($medium->{pubkey}, db => $db, callback => sub {
my (undef, undef, $_k, $id, $imported) = @_;
if ($id) {
- log::l(($imported ? "imported" : "found")." key=$id for medium $medium->{descr}");
+ log::l(($imported ? "imported" : "found") . " key=$id for medium $medium->{descr}");
$medium->{key_ids}{$id} = undef;
}
});
@@ -747,7 +747,7 @@ sub install_urpmi {
my $arch = $_->arch;
my $ldir = $dir;
$ldir =~ s|/([^/]*)%{ARCH}|/./$1$arch|; $ldir =~ s|%{ARCH}|$arch|g;
- print $LIST "$ldir/".$_->filename."\n";
+ print $LIST "$ldir/" . $_->filename . "\n";
}
} else {
#- need to use another method here to build list file.