diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-29 14:24:17 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-10-29 14:24:17 +0000 |
| commit | 9eb6aeb19860384b24688481cc76b2a9e8e13789 (patch) | |
| tree | 0a9d187c5bf5acaac2c66732ebf9e957002efb02 | |
| parent | 44d5ae5b1e7299fb4ae080828dd66a61452401e0 (diff) | |
| download | drakx-9eb6aeb19860384b24688481cc76b2a9e8e13789.tar drakx-9eb6aeb19860384b24688481cc76b2a9e8e13789.tar.gz drakx-9eb6aeb19860384b24688481cc76b2a9e8e13789.tar.bz2 drakx-9eb6aeb19860384b24688481cc76b2a9e8e13789.tar.xz drakx-9eb6aeb19860384b24688481cc76b2a9e8e13789.zip | |
perl_checker fixes
| -rw-r--r-- | perl-install/detect_devices.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index c37aecf8a..edd586655 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -456,11 +456,11 @@ sub add_addons { my ($addons, @l) = @_; foreach (split "\n", $addons) { - /^\s/ and die "bad detect_devices::probeall_addons line \"$_\""; + /^\s/ and die qq(bad detect_devices::probeall_addons line "$_"); s/^#.*//; s/"(.*?)"/$1/g; next if /^$/; - my ($vendor, $id, $driver, $description) = split("\t", $_, 4) or die "bad detect_devices::probeall_addons line \"$_\""; + my ($vendor, $id, $driver, $description) = split("\t", $_, 4) or die qq(bad detect_devices::probeall_addons line "$_"); foreach (@l) { $_->{vendor} == hex $vendor && $_->{id} == hex $id or next; put_in_hash($_, { driver => $driver, description => $description }); |