}
}
- 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();