summaryrefslogtreecommitdiffstats
path: root/lib/MDV/Distribconf.pm
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2006-08-24 21:10:17 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2006-08-24 21:10:17 +0000
commita2acafce4b2c1b26cc9aea46d88c299dfabb3da6 (patch)
tree525f5b252de5f3e181dd54af47d8126cf1fa3583 /lib/MDV/Distribconf.pm
parent0d5cf82fb5f487902e8e09805b0d28629bc3d29e (diff)
downloadperl-MDV-Distribconf-a2acafce4b2c1b26cc9aea46d88c299dfabb3da6.tar
perl-MDV-Distribconf-a2acafce4b2c1b26cc9aea46d88c299dfabb3da6.tar.gz
perl-MDV-Distribconf-a2acafce4b2c1b26cc9aea46d88c299dfabb3da6.tar.bz2
perl-MDV-Distribconf-a2acafce4b2c1b26cc9aea46d88c299dfabb3da6.tar.xz
perl-MDV-Distribconf-a2acafce4b2c1b26cc9aea46d88c299dfabb3da6.zip
- perl_checker fix
Diffstat (limited to 'lib/MDV/Distribconf.pm')
-rw-r--r--lib/MDV/Distribconf.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/MDV/Distribconf.pm b/lib/MDV/Distribconf.pm
index 715cd63..6ec9c87 100644
--- a/lib/MDV/Distribconf.pm
+++ b/lib/MDV/Distribconf.pm
@@ -304,16 +304,16 @@ sub parse_hdlists {
chomp;
length or next;
my ($options, %media);
- ($options, @media{qw/hdlist path name size/}) = /^\s*(?:(.*):)?(\S+)\s+(\S+)\s+([^(]*)(?:\s+\((\w+)\))?$/;
+ ($options, @media{qw(hdlist path name size)}) = /^\s*(?:(.*):)?(\S+)\s+(\S+)\s+([^(]*)(?:\s+\((\w+)\))?$/;
if (!$media{hdlist}) { # Hack because hdlists format really sucks
- ($options, @media{qw/hdlist path name size/}) = /^\s*(?:(.*):)?(\S+)\s+(\S+)\s+(.*)$/;
+ ($options, @media{qw(hdlist path name size)}) = /^\s*(?:(.*):)?(\S+)\s+(\S+)\s+(.*)$/;
}
if ($options) {
$media{$_} = 1 foreach split /:/, $options;
}
$media{name} =~ s/\s*$//;
$media{path} =~ s!^$distrib->{mediadir}/+!!;
- foreach (qw/hdlist name size/, $options ? split(/:/, $options) : ()) {
+ foreach (qw(hdlist name size), $options ? split(/:/, $options) : ()) {
$distrib->{cfg}->newval($media{path}, $_, $media{$_})
or die "Can't set value [$_]\n";
}