module-build-pm5100_Base.pm.rej

--- lib/Module/Build/Base.pm    2012-06-26 14:59:23.000000000 -0400
+++ lib/Module/Build/Base.pm    2012-07-26 23:54:23.000000000 -0400
@@ -2764,7 +2764,7 @@
     local $ENV{HARNESS_PERL_SWITCHES} = join ' ', grep defined, $ENV{HARNESS_PERL_SWITCHES}, @harness_switches;

     $Test::Harness::switches = undef   unless length $Test::Harness::switches;
-    $Test::Harness::Switches = undef   unless length $Test::Harness::Switches;
+    $Test::Harness::Switches = undef   unless (defined $Test::Harness::Switches and length $Test::Harness::Switches);
     delete $ENV{HARNESS_PERL_SWITCHES} unless length $ENV{HARNESS_PERL_SWITCHES};

     local ($Test::Harness::verbose,