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

[clkao at bestpractical.com]

Author: clkao
Date: Fri Jan 18 11:50:41 2008
New Revision: 10394

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

Log:
abs_path is unhappy about nonexisting paths from @INC.

Modified: SVN-Hook/lib/SVN/Hook.pm
==============================================================================
--- SVN-Hook/lib/SVN/Hook.pm	(original)
+++ SVN-Hook/lib/SVN/Hook.pm	Fri Jan 18 11:50:41 2008
@@ -34,7 +34,7 @@
 
 use Cwd 'abs_path';
 sub _this_perl {
-    return join(' ', $Config{perlpath}, map { "-I$_" } map { abs_path($_) } @INC);
+    return join(' ', $Config{perlpath}, map { "-I$_" } grep defined, map { abs_path($_) } @INC);
 
 }