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');
}
|
