-if (my($major, $minor, $rel) = $lastversion =~ /(\d+)\.(\d+)\.(\d+)cvs$/) {
- if (--$rel < 0) {
- $rel = 9;
- if (--$minor < 0) {
- $minor = 6;
- $major--;
- }
- }
- $lastversion = "$major.$minor.$rel";
+if ($lastversion =~ /cvs$/) {
+ open(IN, '<', 'OLDNEWS') or die $!;
+ $_ = <IN>;
+ close IN;
+ ($lastversion) = /(\d+\.\d+\.\d+)/;