Author: ericwilhelm
Date: Sun Apr  1 13:49:47 2007
New Revision: 9373

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/lib/Module/Build/Base.pm

Log:
lib/Module/Build/Base.pm - ACTION_testpodcoverage() @INC workaround (temporary?)
Changes                  - noted


Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Sun Apr  1 13:49:47 2007
@@ -1,5 +1,7 @@
 Revision history for Perl extension Module::Build.
 
+ - Workaround Test::Pod::Coverage @INC bug. [Eric Wilhelm]
+
 0.2807 - Sat Mar 24 22:19:02 2007
 
  - Upgraded to version.pm 0.71. [John Peacock]

Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Sun Apr  1 13:49:47 2007
@@ -2436,6 +2436,18 @@
     or die "The 'testpodcoverage' action requires ",
            "Test::Pod::Coverage version 1.00";
 
+  # TODO this needs test coverage!
+
+  # XXX work-around a bug in Test::Pod::Coverage previous to v1.09
+  # Make sure we test the module in blib/
+  local @INC = @INC;
+  my $p = $self->{properties};
+  unshift(@INC,
+    # XXX any reason to include arch?
+    File::Spec->catdir($p->{base_dir}, $self->blib, 'lib'),
+    #File::Spec->catdir($p->{base_dir}, $self->blib, 'arch')
+  );
+
   all_pod_coverage_ok();
 }
 

Reply via email to