while (@ARGV) {
$filename = shift;
-
+
open FILE, "<$filename" or die "Failed to open $filename: $!\n";
-
+
@output = ();
-
+
while (<FILE>) {
#
# Clear out trailing whitespace
next;
}
- #
+ #
# Remember if we did begin-vendor.
#
if (/^BEGIN-VENDOR\s+([\w-]+)/) {