In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/ffff3758321ce19c1a12dee2d933f1bca64b7861?hp=326df896fec9493c512db76eb6738c3ce3ba9097>

- Log -----------------------------------------------------------------
commit ffff3758321ce19c1a12dee2d933f1bca64b7861
Author: Robin Barker <[email protected]>
Date:   Fri Sep 25 13:56:23 2009 +0100

    fix up ABSTRACT_FROM

M       make_ext.pl

commit c89b1b456b3a3583191350ddba59863084ea6795
Author: Rafael Garcia-Suarez <[email protected]>
Date:   Sun Sep 27 16:06:21 2009 +0200

    Remove unused gitignore entry

M       ext/DynaLoader/.gitignore
-----------------------------------------------------------------------

Summary of changes:
 ext/DynaLoader/.gitignore |    1 -
 make_ext.pl               |    5 ++++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/ext/DynaLoader/.gitignore b/ext/DynaLoader/.gitignore
index 0fe7984..014ac34 100644
--- a/ext/DynaLoader/.gitignore
+++ b/ext/DynaLoader/.gitignore
@@ -1,4 +1,3 @@
 !/dlutils.c
 /DynaLoader.pm
-/XSLoader.pm
 /DynaLoader.xs
diff --git a/make_ext.pl b/make_ext.pl
index 04c2add..c6c6378 100644
--- a/make_ext.pl
+++ b/make_ext.pl
@@ -319,6 +319,9 @@ sub build_extension {
            unless ($fromname) {
                die "For $mname tried @locations in in $ext_dir but can't find 
source";
            }
+            my $pod_name;
+           ($pod_name = $fromname) =~ s/\.pm\z/.pod/;
+           $pod_name = $fromname unless -e $pod_name;
            open my $fh, '>', 'Makefile.PL'
                or die "Can't open Makefile.PL for writing: $!";
            print $fh <<"EOM";
@@ -333,7 +336,7 @@ use ExtUtils::MakeMaker;
 WriteMakefile(
     NAME          => '$mname',
     VERSION_FROM  => '$fromname',
-    ABSTRACT_FROM => '$fromname',
+    ABSTRACT_FROM => '$pod_name',
     realclean     => {FILES => 'Makefile.PL'},
 );
 

--
Perl5 Master Repository

Reply via email to