Open the files _after_ we try to retrieve the VCS revision so we don't leave empty new files in case of troubles

CVS version numbers

copypage.pl: 1.29 -> 1.30

1 files changed, 8 insertions, 8 deletions

diff --git a/copypage.pl b/copypage.pl
index 027236f1906..a89a4e2f211 100755
--- a/copypage.pl
+++ b/copypage.pl
@@ -223,14 +223,7 @@ sub copy
 		undef $dsttitle;
 	}
 
-	# Open the files
-	open SRC, $srcfile
-		or die "Could not read $srcfile ($!)\n";
-
-	open DST, ">$dstfile"
-		or die "Could not create $dstfile ($!)\n";
-
-	# Retrieve CVS revision number
+	# Retrieve VCS revision number
 	my %vcsinfo = vcs_file_info( $srcfile );
 
 	if ( not %vcsinfo  or  not exists $vcsinfo{'cmt_rev'}  )
@@ -238,6 +231,13 @@ sub copy
 		die "Could not get revision number for `$srcfile' - bug in script?\n";
 	}
 
+	# Open the files
+	open SRC, $srcfile
+		or die "Could not read $srcfile ($!)\n";
+
+	open DST, ">$dstfile"
+		or die "Could not create $dstfile ($!)\n";
+
 	# Copy the file and insert the revision number
 	my $insertedrevision = 0;