The script was closing *INP and *OUTP, which never actually existed. Also fix pci_vendor() opening usb.ids and immediately discarding the fh. --- hwdb/ids-update.pl | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-)
diff --git a/hwdb/ids-update.pl b/hwdb/ids-update.pl index 869c49b..9ab754c 100755 --- a/hwdb/ids-update.pl +++ b/hwdb/ids-update.pl @@ -34,8 +34,8 @@ sub usb_vendor { } } - close(INP); - close(OUTP); + close(IN); + close(OUT); } sub usb_classes { @@ -100,15 +100,14 @@ sub usb_classes { } } - close(INP); - close(OUTP); + close(IN); + close(OUT); } sub pci_vendor { my $vendor; my $device; - open(IN, "<", "usb.ids"); open(IN, "<", "pci.ids"); open(OUT, ">", "20-pci-vendor-product.hwdb"); print(OUT "# This file is part of systemd.\n" . @@ -149,8 +148,8 @@ sub pci_vendor { } } - close(INP); - close(OUTP); + close(IN); + close(OUT); } sub pci_classes { @@ -203,8 +202,8 @@ sub pci_classes { } } - close(INP); - close(OUTP); + close(IN); + close(OUT); } sub oui { @@ -237,7 +236,7 @@ sub oui { print(OUT " ID_OUI_FROM_DATABASE=" . $text . "\n"); } } - close(INP); + close(IN); open(IN, "<", "oui.txt"); while (my $line = <IN>) { @@ -255,8 +254,8 @@ sub oui { } } } - close(INP); - close(OUTP); + close(IN); + close(OUT); } usb_vendor(); -- 1.8.0.1 _______________________________________________ systemd-devel mailing list systemd-devel@lists.freedesktop.org http://lists.freedesktop.org/mailman/listinfo/systemd-devel