From 9eb6aeb19860384b24688481cc76b2a9e8e13789 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 29 Oct 2003 14:24:17 +0000 Subject: perl_checker fixes --- perl-install/detect_devices.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/detect_devices.pm') 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 }); -- cgit v1.2.1