$line++;
next unless /\S/;
- my ($type, $flags, $name, $urls) = m!^src-(\w+)((?:\s+--\w+(?:=\S+)?)*)\s+(\w+)(?:\s+(\S.*))?$!;
+ my ($type, $flags, $name, $urls) = m!^src-([\w\-]+)((?:\s+--\w+(?:=\S+)?)*)\s+(\w+)(?:\s+(\S.*))?$!;
unless ($type && $name) {
die "Syntax error in $fname, line $line\n";
}
}
if ($type eq "include") {
- parse_file($urls, $name) or
+ parse_file($urls, $existing) or
die "Unable to open included file '$urls'";
next;
}