mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
635 B
25 lines
635 B
# Remove references to MSPQM from KSFILTER.INF
|
|
|
|
foreach (<>) {
|
|
# if it's a comment line, spew and continue
|
|
if (m/^;/) {
|
|
if ($section ne "MSPQM") {
|
|
print;
|
|
}
|
|
# if it's a section header, check it for MSPQM
|
|
} elsif (m/^\[(.*)\]/) {
|
|
if (m/MSPQM/) {
|
|
$section = "MSPQM";
|
|
# swallow it
|
|
} else {
|
|
$section = "";
|
|
print;
|
|
}
|
|
# must be a key=value pair (or blank line)
|
|
} elsif (m/MSPQM/) {
|
|
# swallow it regardless of section
|
|
# print if not an MSPQM section
|
|
} elsif ($section ne "MSPQM") {
|
|
print;
|
|
}
|
|
}
|