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

[pmichaud]

Author: pmichaud
Date: Wed May  7 17:24:25 2008
New Revision: 27390

Modified:
   trunk/tools/dev/mk_language_shell.pl

Log:
[tools]:
* Update mk_language_shell.pl so that it doesn't attempt to configure
  shells created outside of the languages/ directory. (RT#53418)


Modified: trunk/tools/dev/mk_language_shell.pl
==============================================================================
--- trunk/tools/dev/mk_language_shell.pl        (original)
+++ trunk/tools/dev/mk_language_shell.pl        Wed May  7 17:24:25 2008
@@ -86,10 +86,12 @@
 ##  close the last file
 close($fh) if $fh;
 
-##  build the initial makefile
-my $reconfigure = "$PConfig{perl} 
$PConfig{build_dir}/tools/dev/reconfigure.pl";
-$reconfigure =~ s!/!$PConfig{slash}!g;
-system("$reconfigure --step=gen::languages --languages=$lclang");
+##  build the initial makefile if no path was specified on command line
+unless ($ARGV[1]) {
+  my $reconfigure = "$PConfig{perl} 
$PConfig{build_dir}/tools/dev/reconfigure.pl";
+  $reconfigure =~ s!/!$PConfig{slash}!g;
+  system("$reconfigure --step=gen::languages --languages=$lclang");
+}
 
 ##  we're done
 1;