[svk-commit] r2437 - trunk/lib/SVK

[nobody at bestpractical.com]

Author: clsung
Date: Sun Jul 15 10:32:03 2007
New Revision: 2437

Modified:
   trunk/lib/SVK/Test.pm

Log:
- fix the problem when path contains " " 
  e.g. c:\Program Files\svk\...

Modified: trunk/lib/SVK/Test.pm
==============================================================================
--- trunk/lib/SVK/Test.pm	(original)
+++ trunk/lib/SVK/Test.pm	Sun Jul 15 10:32:03 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";
     }