warn "checking $enfname:\n" if $opt_v;
open FILE, $enfname or warn "$enfname: $!\n" and return;
while (<FILE>) {
- if (/\$Id: translation-status,v 1.2 2002/12/06 09:59:51 aph Exp $/) {
+ if (/\$Id: [^\s]+ ([\d\.]+) .* Exp \$/) {
$enrev = $1;
last;
}
- if (/\$Revision: 1.2 $/) {
+ if (/\$Revision: ([\d\.]+) \$/) {
$enrev = $1;
last;
}