[Bps-public-commit] Test-Script-Run branch, master, updated. 4aa5e58ef45c30fb5c951b96a2a83ddd4bc3143d

[sartak at bestpractical.com]

The branch, master has been updated
       via  4aa5e58ef45c30fb5c951b96a2a83ddd4bc3143d (commit)
      from  cacdb622692257ee5d6d866615ae8218cc265767 (commit)

Summary of changes:
 lib/Test/Script/Run.pm |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 4aa5e58ef45c30fb5c951b96a2a83ddd4bc3143d
Author: Shawn M Moore <sartak at gmail.com>
Date:   Mon Nov 16 18:33:07 2009 -0500

    Grep out @INC-hooks

diff --git a/lib/Test/Script/Run.pm b/lib/Test/Script/Run.pm
index bea14db..8bdba43 100644
--- a/lib/Test/Script/Run.pm
+++ b/lib/Test/Script/Run.pm
@@ -136,7 +136,9 @@ sub _get_perl_cmd {
         die "couldn't find bin dir" unless -d $base_dir;
     }
 
-    my @cmd = ( $^X, ( map { "-I$_" } @INC ) );
+    # We grep out references because of INC-hooks like Jifty::ClassLoader
+    my @cmd = ( $^X, ( map { "-I$_" } grep {!ref($_)} @INC ) );
+
     push @cmd, '-MDevel::Cover' if $INC{'Devel/Cover.pm'};
     if ( $INC{'Devel/DProf.pm'} ) {
         push @cmd, '-d:DProf';

-----------------------------------------------------------------------