diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-08-11 06:37:14 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-08-11 06:37:14 +0000 |
| commit | a510a01b688f3a7af5f3abf41748f2f9a096ca44 (patch) | |
| tree | 42f170785f6b0786bf9bed23f967ae4477159631 /perl-install/install_any.pm | |
| parent | 05536818913b6837b3395bfd13b1d52584143dd1 (diff) | |
| download | drakx-a510a01b688f3a7af5f3abf41748f2f9a096ca44.tar drakx-a510a01b688f3a7af5f3abf41748f2f9a096ca44.tar.gz drakx-a510a01b688f3a7af5f3abf41748f2f9a096ca44.tar.bz2 drakx-a510a01b688f3a7af5f3abf41748f2f9a096ca44.tar.xz drakx-a510a01b688f3a7af5f3abf41748f2f9a096ca44.zip | |
perl_checker compliance
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 6 |
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. |