[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.456,1.457

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14881/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Fall back to Pod::Text if Pod::Readme is not installed

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.456
retrieving revision 1.457
diff -u -d -r1.456 -r1.457
--- Base.pm	5 Jul 2005 17:59:12 -0000	1.456
+++ Base.pm	8 Jul 2005 01:39:46 -0000	1.457
@@ -2283,10 +2283,11 @@
 
 sub do_create_readme {
   my $self = shift;
-  require Pod::Readme;
   $self->delete_filetree('README');
-  $self->log_info("Creating README\n");
-  my $parser = Pod::Readme->new;
+  my $parser = eval {require Pod::Readme; 1} ? Pod::Readme->new :
+               eval {require Pod::Text;   1} ? Pod::Text->new :
+	       die "Can't load Pod::Readme or Pod::Text to create README";
+  $self->log_info("Creating README using " . ref($parser) . "\n");
   $parser->parse_from_file($self->dist_version_from, 'README', @_);
   $self->_add_to_manifest('MANIFEST', 'README');
 }