Loosen "English Revision" format
git-svn-id: https://svn.apache.org/repos/asf/httpd/docs-build/trunk@1229181 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/lib/metafile.pl b/lib/metafile.pl
index a389f2a..bc8dbd2 100644
--- a/lib/metafile.pl
+++ b/lib/metafile.pl
@@ -219,10 +219,10 @@
local $_;
while (<FILE>) {
$rev = $1, $orev=$2, last
- if /<!--\s*English\s+Revision:\s*([^\s:]+)
+ if /<!--\s*English\s+Revision\s*:\s*([^\s:]+)
(?::(\S+)\s+\(outdated\))?\s+-->/xi
or
- /<!--\s*English\s+Revision:\s*(\S+)\s+
+ /<!--\s*English\s+Revision\s*:\s*(\S+)\s+
(?:\(outdated:\s*(\S+)\s*\)\s+)?-->/xi;
}
}
@@ -244,11 +244,11 @@
or die "could not close file '$curpath' ($!), stopped";
unless (
- $cont =~ s{<!--\s*English\s+Revision:\s*([^\s:]+)
+ $cont =~ s{<!--\s*English\s+Revision\s*:\s*([^\s:]+)
(?::\S+\s+\(outdated\))?\s+-->}
{<!-- English Revision: $1:$reven (outdated) -->}ix
) {
- $cont =~ s{<!--\s*English\s+Revision:\s*(\S+)\s+
+ $cont =~ s{<!--\s*English\s+Revision\s*:\s*(\S+)\s+
(?:\(outdated[^)]*\)\s+)?-->}
{<!-- English Revision: $1:$reven (outdated) -->}ix
}