diff options
author | Martin Schulze <joey> | 2001-05-27 21:45:26 +0000 |
---|---|---|
committer | Martin Schulze <joey> | 2001-05-27 21:45:26 +0000 |
commit | 0e0464033a196c7efbb9141cdf2e5510c61a01c7 (patch) | |
tree | c436baaa2b86ea4290a27097fa21f8c06f651e8c /touch_translations.pl | |
parent | 9dd57b932105f1c0f472967e38139a9f403ddeae (diff) |
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
Diffstat (limited to 'touch_translations.pl')
-rwxr-xr-x | touch_translations.pl | 7 |
1 files changed, 5 insertions, 2 deletions
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) { |