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

[Infinoid at svn.parrot.org]

Author: Infinoid
Date: Sun Apr 26 14:12:13 2009
New Revision: 38374
URL: https://trac.parrot.org/parrot/changeset/38374

Log:
[tools] RT #65006 fallout: Rakudo required a Configure.pl fix to escape wildcards on win32.
Adjust our create_language.pl so newly created languages will get the same fix.

Modified:
   trunk/tools/dev/create_language.pl

Modified: trunk/tools/dev/create_language.pl
==============================================================================
--- trunk/tools/dev/create_language.pl	Sun Apr 26 13:54:03 2009	(r38373)
+++ trunk/tools/dev/create_language.pl	Sun Apr 26 14:12:13 2009	(r38374)
@@ -227,7 +227,11 @@
     $config{'win32_libparrot_copy'} = $^O eq 'MSWin32' ? 'copy $(BUILD_DIR)\libparrot.dll .' : '';
     $maketext =~ s/@(\w+)@/$config{$1}/g;
     if ($^O eq 'MSWin32') {
+        # use backslashes.
         $maketext =~ s{/}{\\}g;
+        # wildcards (for clean rules) need an additional backslash, see Rakudo RT #65006
+        $maketext =~ s{\\\*}{\\\\*}g;
+        # use forward slashes again for HTTP URLs
         $maketext =~ s{http:\S+}{ do {my $t = $&; $t =~ s'\\'/'g; $t} }eg;
     }