From d56f809657af95c6e17ccb8a3b5bf82e3f2333f5 Mon Sep 17 00:00:00 2001
From: Rüdiger Timm <rt@openoffice.org>
Date: Mon, 29 Sep 2008 07:42:25 +0000
Subject: CWS-TOOLING: integrate CWS native199_DEV300

---
 scp2/macros/macro.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'scp2/macros')

diff --git a/scp2/macros/macro.pl b/scp2/macros/macro.pl
index 2aa1297f3bd3..53bf047d9e98 100644
--- a/scp2/macros/macro.pl
+++ b/scp2/macros/macro.pl
@@ -118,7 +118,9 @@ sub write_DIR_ISOLANGUAGE_ALL_LANG_LPROJ
 {
     print OUTFILE "#define DIR_ISOLANGUAGE_ALL_LANG_LPROJ ";
     foreach $lang (@completelangiso) {
-        print OUTFILE "\\\n\tDosName ($lang) = \"$lang.lproj\"";
+        my $speciallang = $lang;
+        if ( $speciallang eq "en-US" ) { $speciallang = "en"; }
+        print OUTFILE "\\\n\tDosName ($lang) = \"$speciallang.lproj\"";
         print OUTFILE "; " if ( $lang ne $completelangiso[$#completelangiso]);
     }
     print OUTFILE "\n\n";
-- 
cgit