From 0e0464033a196c7efbb9141cdf2e5510c61a01c7 Mon Sep 17 00:00:00 2001
From: Martin Schulze <joey>
Date: Sun, 27 May 2001 21:45:26 +0000
Subject: Workaround to make it stop from bailing out when working in a
 directory that wasn't yet committed to CVS, which is the case when working on
 new pages and only committing them when they have proved to work properly.

CVS version numbers

touch_translations.pl: 1.4 -> 1.5
---
 touch_translations.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'touch_translations.pl')

diff --git a/touch_translations.pl b/touch_translations.pl
index cf82a7503b0..dd01ed99110 100755
--- a/touch_translations.pl
+++ b/touch_translations.pl
@@ -103,12 +103,15 @@ my ($path, $file) = ($1, $2);
 
 # Get the revision of the original file
 my $origrev;
-open FILE, "${path}/CVS/Entries" or die "${path}/CVS/Entries: $!";
-while (<FILE>) {
+if (open FILE, "${path}/CVS/Entries") {
+  while (<FILE>) {
     if (m,^/$file.wml/([^/]+)/,) {
         $origrev = $1;
         last;
     }
+  }
+} else {
+    $origrev = "1.0";
 }
 
 foreach $lang (@langs) {
-- 
cgit v1.2.3