From 713929062c8b0d47d740594dc944e9079d9321a3 Mon Sep 17 00:00:00 2001
From: Swedish Language Team <swedish>
Date: Tue, 7 Mar 2000 07:38:43 +0000
Subject: Bugfix

CVS version numbers

copypage.pl: 1.1 -> 1.2
---
 copypage.pl | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'copypage.pl')

diff --git a/copypage.pl b/copypage.pl
index db919acbbd8..b7e7ca751ef 100755
--- a/copypage.pl
+++ b/copypage.pl
@@ -6,7 +6,7 @@
 # Makefile from the source.
 
 # Written on 2000-02-26 by peter karlsson <peter@softwolves.pp.se>
-# © Copyright 2000 Software in the public intereset, Inc.
+# © Copyright 2000 Software in the public interest, Inc.
 # This program is released under the GNU General Public License, v2.
 
 # $Id$
@@ -95,7 +95,7 @@ open DST, ">$dstfile"
 # Retrieve CVS revision number
 while (<CVS>)
 {
-	if (m[^/$filename/([0-9]*\.[0-9])*/]o)
+	if (m[^/$filename/([0-9]*\.[0-9]*)/]o)
 	{
 		$revision = $1;
 	}
@@ -103,7 +103,11 @@ while (<CVS>)
 
 close CVS;
 
-print "Could not get revision number\n" unless $revision;
+unless ($revision)
+{
+	print "Could not get revision number - bug in script?\n";
+	revision = '1.1';
+}
 
 # Copy the file and insert the revision number
 $insertedrevision = 0;
-- 
cgit v1.2.3