From: Robin Barker <Robin.Barker@npl.co.uk>
Date: Fri, 25 Sep 2009 12:56:23 +0000 (+0100)
Subject: fix up ABSTRACT_FROM
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ffff3758321ce19c1a12dee2d933f1bca64b7861;p=p5sagit%2Fp5-mst-13.2.git

fix up ABSTRACT_FROM
---

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