[svn:Module-Build] r13483 - Module-Build/trunk/lib/Module/Build

[email protected] Tue, 10 Nov 2009 11:14:49 -0800 (PST)
Newsgroups perl.module.build.checkins
Message-ID <[email protected]>
Author: dagolden
Date: Tue Nov 10 11:14:49 2009
New Revision: 13483

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

Log:
work around odd Pod::Readme test failures

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	Tue Nov 10 11:14:49 2009
@@ -3525,7 +3525,9 @@
     return;
   }
 
-  if ( eval {require Pod::Readme; 1} ) {
+  # work around some odd Pod::Readme->new() failures in test reports by 
+  # confirming that new() is available
+  if ( eval {require Pod::Readme; Pod::Readme->can('new') } ) {
     $self->log_info("Creating README using Pod::Readme\n");
 
     my $parser = Pod::Readme->new;