[svn:parrot] r41380 - trunk/tools/dev

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sun Sep 20 15:00:49 2009
New Revision: 41380
URL: https://trac.parrot.org/parrot/changeset/41380

Log:
[languages] cleanup (after load_language convertion)

Modified:
   trunk/tools/dev/mk_inno_language.pl

Modified: trunk/tools/dev/mk_inno_language.pl
==============================================================================
--- trunk/tools/dev/mk_inno_language.pl	Sun Sep 20 14:05:48 2009	(r41379)
+++ trunk/tools/dev/mk_inno_language.pl	Sun Sep 20 15:00:49 2009	(r41380)
@@ -56,16 +56,12 @@
             ? qq{Source: ".\\parrot-*.exe"; DestDir: "{app}\\bin"; Flags:}
             : '; no .exe'
         );
-my $pbc = <*.pbc>
+my $pbc = <*.pbc> && ! -d $lang
         ? qq{Source: ".\\*.pbc"; DestDir: "{app}\\lib\\parrot\\languages\\$lang"; Flags:}
         : '; no .pbc';
 my $lng = -d $lang
-        ? qq{Source: ".\\$lang\\*"; DestDir: "{app}\\lib\\parrot\\languages\\$lang"; Flags: ignoreversion recursesubdirs}
+        ? qq{Source: ".\\$lang\\*.pbc"; DestDir: "{app}\\lib\\parrot\\languages\\$lang"; Flags: ignoreversion recursesubdirs}
         : '; no lang';
-my $lib = <library/*.pbc>
-#        ? qq{Source: ".\\library\\*.pbc"; DestDir: "{app}\\lib\\parrot\\languages\\$lang\\library"; Flags: ignoreversion recursesubdirs}
-        ? qq{Source: ".\\library\\*.pbc"; DestDir: "{app}\\lib\\parrot\\library\\$lang"; Flags: ignoreversion recursesubdirs}
-        : '; no .pbc lib';
 my $pmc = <src/pmc/*.dll>
         ? qq{Source: ".\\src\\pmc\\*.dll"; DestDir: "{app}\\lib\\parrot\\dynext"; Flags:}
         : '; no pmc';
@@ -113,7 +109,6 @@
 $exe
 $pbc
 $lng
-$lib
 $pmc
 $ops
 $dynext