The script was closing *INP and *OUTP, which never actually existed.
Also fix pci_vendor() opening usb.ids and immediately discarding the fh.
}
}
- close(INP);
- close(OUTP);
+ close(IN);
+ close(OUT);
}
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" .
}
}
- close(INP);
- close(OUTP);
+ close(IN);
+ close(OUT);
}
sub pci_classes {
}
}
- close(INP);
- close(OUTP);
+ close(IN);
+ close(OUT);
}
sub oui {
print(OUT " ID_OUI_FROM_DATABASE=" . $text . "\n");
}
}
- close(INP);
+ close(IN);
open(IN, "<", "oui.txt");
while (my $line = <IN>) {
}
}
}
- close(INP);
- close(OUTP);
+ close(IN);
+ close(OUT);
}
usb_vendor();