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-]+)/) {
$begin_vendor = 1;
+ if (!defined $vendor) {
+ $vendor = $1;
+ } elsif ($vendor ne $1) {
+ # do something smart
+ }
+
push @output, "BEGIN-VENDOR\t$vendor\n";
next;
}