summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-13 10:23:51 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-13 10:23:51 +0000
commit3d0cee6d9469e9be42bc2a475f440764529a44b3 (patch)
tree644397fd03e8b3a92d3f09a9c7c1e142845282f3 /perl-install
parent5315b608da7fe4ee21cbee13a648167faad4ecf8 (diff)
downloaddrakx-3d0cee6d9469e9be42bc2a475f440764529a44b3.tar
drakx-3d0cee6d9469e9be42bc2a475f440764529a44b3.tar.gz
drakx-3d0cee6d9469e9be42bc2a475f440764529a44b3.tar.bz2
drakx-3d0cee6d9469e9be42bc2a475f440764529a44b3.tar.xz
drakx-3d0cee6d9469e9be42bc2a475f440764529a44b3.zip
fix drakxtools build
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/scanner.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 3d7fda2b6..3045fd5c6 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -126,7 +126,7 @@ sub detect {
if ($vendorid and $productid) {
# We have vendor and product ID, look up the scanner in
# the usbtable
- foreach $entry (cat_("$_scannerDBdir/usbtable")) {
+ foreach my $entry (cat_("$_scannerDBdir/usbtable")) {
if ($entry =~
/^\s*$vendorid\s+$productid\s+.*\"([^\"]+)\"\s*$/) {
$description = $1;