diff options
| author | Thierry Vignaud <tv@mageia.org> | 2011-11-27 00:49:53 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2011-11-27 00:49:53 +0000 |
| commit | b82b02fece7f4884848fecb34cc48c734ed12d55 (patch) | |
| tree | 07192e453cac39c5079cf6103d5ed788da14b9e7 | |
| parent | 03864dc61ca43ad83e2fe215d8b5438d2b351a3a (diff) | |
| download | drakx-b82b02fece7f4884848fecb34cc48c734ed12d55.tar drakx-b82b02fece7f4884848fecb34cc48c734ed12d55.tar.gz drakx-b82b02fece7f4884848fecb34cc48c734ed12d55.tar.bz2 drakx-b82b02fece7f4884848fecb34cc48c734ed12d55.tar.xz drakx-b82b02fece7f4884848fecb34cc48c734ed12d55.zip | |
(parse_release_file) silent perl_checker
| -rw-r--r-- | perl-install/common.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 30ef121e2..c30abc9d1 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -340,7 +340,7 @@ sub parse_release_file { my $arch = $s =~ s/\s+for\s+(\S+)// && $1; log::l("find_root_parts found $part->{device}: $s for $arch" . ($f !~ m!/etc/! ? " in special release file $f" : '')); { release => $s, version => $version, - release_file => $f, part => $part, arch => $arch }; + release_file => $f, part => $part, 'arch' => $arch }; } sub release_file { |