- warn "checking $plfname:\n" if $opt_v;
- open FILE, $plfname or warn "$plfname: $!\n" and return;
- while (<FILE>) {
- if (/<!entity\s*cvs-en-rev\s*"([\d\.]+)"/i) {
- $plrev = $1;
- last;
- }
- }
- warn "checking $enfname:\n" if $opt_v;
- open FILE, $enfname or warn "$enfname: $!\n" and return;
- while (<FILE>) {
- if (/\$Id: [^\s]+ ([\d\.]+) .* Exp \$/) {
- $enrev = $1;
- last;
- }
- if (/\$Revision: ([\d\.]+) \$/) {
- $enrev = $1;
- last;
- }
- }
- close FILE;
- warn "failed to find revision for $plfname\n" unless $plrev;
- warn "failed to find revision for $enfname\n" unless $enrev;
- return ($plrev, $enrev);
+ warn "checking $plfname:\n" if $opt_v;
+ open FILE, $plfname or warn "$plfname: $!\n" and return;
+ while (<FILE>) {
+ if (/<!entity\s*cvs-en-rev\s*"([\d\.]+)"/i) {
+ $plrev = $1;
+ last;
+ }
+ }
+ warn "checking $enfname:\n" if $opt_v;
+ open FILE, $enfname or warn "$enfname: $!\n" and return;
+ while (<FILE>) {
+ if (/\$Id: [^\s]+ ([\d\.]+) .* Exp \$/) {
+ $enrev = $1;
+ last;
+ }
+ if (/\$Revision: ([\d\.]+) \$/) {
+ $enrev = $1;
+ last;
+ }
+ }
+ close FILE;
+ warn "failed to find revision for $plfname\n" unless $plrev;
+ warn "failed to find revision for $enfname\n" unless $enrev;
+ return ($plrev, $enrev);