summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-10-29 14:24:17 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-10-29 14:24:17 +0000
commit9eb6aeb19860384b24688481cc76b2a9e8e13789 (patch)
tree0a9d187c5bf5acaac2c66732ebf9e957002efb02
parent44d5ae5b1e7299fb4ae080828dd66a61452401e0 (diff)
downloaddrakx-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.pm4
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 });