diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2006-08-24 21:10:17 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2006-08-24 21:10:17 +0000 |
| commit | a2acafce4b2c1b26cc9aea46d88c299dfabb3da6 (patch) | |
| tree | 525f5b252de5f3e181dd54af47d8126cf1fa3583 /lib/MDV/Distribconf.pm | |
| parent | 0d5cf82fb5f487902e8e09805b0d28629bc3d29e (diff) | |
| download | perl-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.pm | 6 |
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"; } |