From b82b02fece7f4884848fecb34cc48c734ed12d55 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 27 Nov 2011 00:49:53 +0000
Subject: (parse_release_file) silent perl_checker

---
 perl-install/common.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/common.pm')

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 {
-- 
cgit v1.2.1