[svn:parrot] r40633 - trunk/config/init

[chromatic at svn.parrot.org]

Author: chromatic
Date: Tue Aug 18 20:50:39 2009
New Revision: 40633
URL: https://trac.parrot.org/parrot/changeset/40633

Log:
[config] Added escaping for freaky characters in checkout paths.  This should
clear up TT #930.  Testing very welcome on various platforms.

Modified:
   trunk/config/init/defaults.pm

Modified: trunk/config/init/defaults.pm
==============================================================================
--- trunk/config/init/defaults.pm	Tue Aug 18 18:53:37 2009	(r40632)
+++ trunk/config/init/defaults.pm	Tue Aug 18 20:50:39 2009	(r40633)
@@ -75,12 +75,14 @@
     my $ccdlflags = $Config{ccdlflags};
     $ccdlflags =~ s/\s*-Wl,-rpath,\S*//g if $conf->options->get('disable-rpath');
 
+    (my $build_dir = abs_path($FindBin::Bin)) =~ s/([^-A-Za-z0-9_\/])/\\$1/g;
+
     # We need a Glossary somewhere!
     $conf->data->set(
         debugging => $conf->options->get('debugging') ? 1 : 0,
         optimize  => '',
         verbose   => $conf->options->get('verbose'),
-        build_dir => abs_path($FindBin::Bin),
+        build_dir => $build_dir,
         configured_from_file =>
             $conf->options->get('configured_from_file') || '',
         configuration_steps => ( join q{ } => $conf->get_list_of_steps() ),