[Bps-public-commit] r10391 - SVN-Hook/lib/SVN

[clkao at bestpractical.com]

Author: clkao
Date: Fri Jan 18 11:18:11 2008
New Revision: 10391

Modified:
   SVN-Hook/lib/SVN/Hook.pm

Log:
use $Config{perlpath} instead of $^X.

Modified: SVN-Hook/lib/SVN/Hook.pm
==============================================================================
--- SVN-Hook/lib/SVN/Hook.pm	(original)
+++ SVN-Hook/lib/SVN/Hook.pm	Fri Jan 18 11:18:11 2008
@@ -27,13 +27,14 @@
 __PACKAGE__->mk_accessors(qw(repospath));
 
 use SVN::Hook::Script;
+use Config;
 use constant ALL_HOOKS =>
   qw<post-commit post-lock post-revprop-change post-unlock pre-commit
      pre-lock pre-revprop-change pre-unlock start-commit>;
 
 use Cwd 'abs_path';
 sub _this_perl {
-    return join(' ', $^X, map { "-I$_" } map { abs_path($_) } @INC);
+    return join(' ', $Config{perlpath}, map { "-I$_" } map { abs_path($_) } @INC);
 
 }