Perform substitutions in English files too

CVS version numbers

smart_change.pl: 1.1 -> 1.2

1 files changed, 3 insertions, 2 deletions

diff --git a/smart_change.pl b/smart_change.pl
index 628075b424b..eb8cb2cd3a7 100755
--- a/smart_change.pl
+++ b/smart_change.pl
@@ -81,8 +81,8 @@ foreach my $lang (@opt_l) {
 
         # Parse the translated file
         my $transcheck = Webwml::TransCheck->new($transfile);
-        next unless $transcheck->revision();
-        my $langrev  = $transcheck->revision();
+        next unless $transcheck->revision() || $lang eq 'english';
+        my $langrev = $transcheck->revision();
 
         my $origtext = '';
         my $transtext = '';
@@ -100,6 +100,7 @@ foreach my $lang (@opt_l) {
         }
         close (TRANS);
         if ($origtext ne $transtext) {
+                verbose("Writing $transfile");
                 open (TRANS, "> $transfile");
                 print TRANS $transtext;
                 close (TRANS);