hwdb: ids-update: close the right file handles

The script was closing *INP and *OUTP, which never actually existed.

Also fix pci_vendor() opening usb.ids and immediately discarding the fh.
This commit is contained in:
Mantas Mikulėnas 2012-12-06 23:34:25 +02:00 committed by Kay Sievers
parent 7b683869dc
commit f9cd22249d
1 changed files with 11 additions and 12 deletions

View File

@ -34,8 +34,8 @@ sub usb_vendor {
} }
} }
close(INP); close(IN);
close(OUTP); close(OUT);
} }
sub usb_classes { sub usb_classes {
@ -100,15 +100,14 @@ sub usb_classes {
} }
} }
close(INP); close(IN);
close(OUTP); close(OUT);
} }
sub pci_vendor { sub pci_vendor {
my $vendor; my $vendor;
my $device; my $device;
open(IN, "<", "usb.ids");
open(IN, "<", "pci.ids"); open(IN, "<", "pci.ids");
open(OUT, ">", "20-pci-vendor-product.hwdb"); open(OUT, ">", "20-pci-vendor-product.hwdb");
print(OUT "# This file is part of systemd.\n" . print(OUT "# This file is part of systemd.\n" .
@ -149,8 +148,8 @@ sub pci_vendor {
} }
} }
close(INP); close(IN);
close(OUTP); close(OUT);
} }
sub pci_classes { sub pci_classes {
@ -203,8 +202,8 @@ sub pci_classes {
} }
} }
close(INP); close(IN);
close(OUTP); close(OUT);
} }
sub oui { sub oui {
@ -237,7 +236,7 @@ sub oui {
print(OUT " ID_OUI_FROM_DATABASE=" . $text . "\n"); print(OUT " ID_OUI_FROM_DATABASE=" . $text . "\n");
} }
} }
close(INP); close(IN);
open(IN, "<", "oui.txt"); open(IN, "<", "oui.txt");
while (my $line = <IN>) { while (my $line = <IN>) {
@ -255,8 +254,8 @@ sub oui {
} }
} }
} }
close(INP); close(IN);
close(OUTP); close(OUT);
} }
usb_vendor(); usb_vendor();