From 75a4eaeeb3e8534aa8f8fcf83230e1462e7c662c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 5 Jul 2002 11:31:44 +0000
Subject: make it work with "use strict"

---
 mdk-stage1/pci-resource/update-pci-ids.pl | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/mdk-stage1/pci-resource/update-pci-ids.pl b/mdk-stage1/pci-resource/update-pci-ids.pl
index 09bb6f02e..73f1d151b 100755
--- a/mdk-stage1/pci-resource/update-pci-ids.pl
+++ b/mdk-stage1/pci-resource/update-pci-ids.pl
@@ -1,9 +1,10 @@
 #!/usr/bin/perl
 
+use strict;
 use MDK::Common;
 
 require '/usr/bin/merge2pcitable.pl';
-my $drivers = read_pcitable("/usr/share/ldetect-lst/pcitable");
+my $pci = read_pcitable("/usr/share/ldetect-lst/pcitable");
 
 print '
 #define PCI_REVISION_ID         0x08    /* Revision ID */
@@ -22,15 +23,15 @@ my %t = (
     medias  => 'disk/scsi|hardware_raid',
 );
 
-foreach $type (keys %t) {
+foreach my $type (keys %t) {
     my @modules = chomp_(`perl ../../kernel/modules.pl pci_modules4stage1:"$t{$type}"`);
 
     print "#ifndef DISABLE_".uc($type)."
 struct pci_module_map ${type}_pci_ids[] = {
 ";
 
-    foreach my $k (sort keys %$drivers) {
-	$v = $drivers->{$k};
+    foreach my $k (sort keys %$pci) {
+	my $v = $pci->{$k};
 	member($v->[0], @modules) or next;
 	$k =~ /^(....)(....)/;
 	printf qq|\t{ 0x%s, 0x%s, "%s", "%s" },\n|,
@@ -42,6 +43,4 @@ int ${type}_num_ids = sizeof(${type}_pci_ids) / sizeof(struct pci_module_map);
 #endif
 
 ";
-
-    print STDERR "\n";
 }
-- 
cgit v1.2.1