[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.484,1.485

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

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

Modified Files:
	Base.pm 
Log Message:
Look for a .pod too when generating README

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.484
retrieving revision 1.485
diff -u -d -r1.484 -r1.485
--- Base.pm	23 Sep 2005 03:35:31 -0000	1.484
+++ Base.pm	23 Sep 2005 21:37:39 -0000	1.485
@@ -2448,7 +2448,10 @@
                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', @_);
+  my $pm_file = $self->dist_version_from;
+  (my $pod_file = $pm_file) =~ s/.pm$/.pod/;
+  $parser->parse_from_file
+    ((-e $pod_file ? $pod_file : $pm_file), 'README', @_);
   $self->_add_to_manifest('MANIFEST', 'README');
 }