[svk-commit] r2500 - branches/2.0-releng/lib/SVK

[nobody at bestpractical.com]

Author: clkao
Date: Tue Jul 17 12:11:17 2007
New Revision: 2500

Modified:
   branches/2.0-releng/lib/SVK/Test.pm

Log:
merge from trunk:
 r2437 at trunk:  clsung | 2007-07-15 15:32:03 +0100
 - fix the problem when path contains " " 
   e.g. c:\Program Files\svk\...


Modified: branches/2.0-releng/lib/SVK/Test.pm
==============================================================================
--- branches/2.0-releng/lib/SVK/Test.pm	(original)
+++ branches/2.0-releng/lib/SVK/Test.pm	Tue Jul 17 12:11:17 2007
@@ -614,7 +614,7 @@
     open my $fh, '>', $hook or die $!;
     if (IS_WIN32) {
         print $fh "\@rem = '--*-Perl-*--\n";
-        print $fh '@echo off'."\n$^X".' -x -S %0 %*'."\n";
+        print $fh '@echo off'."\n\"$^X\"".' -x -S %0 %*'."\n";
         print $fh 'if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul'."\n";
 	print $fh "goto endofperl\n\@rem ';\n";
     }