Re: RFC patch - display src-lines in B::Concise

[p5sagit/p5-mst-13.2.git] / ext / B / Makefile.PL

diff --git a/ext/B/Makefile.PL b/ext/B/Makefile.PL
index 74053e6..4a1e425 100644 (file)
--- a/ext/B/Makefile.PL
+++ b/ext/B/Makefile.PL
@@ -1,9 +1,11 @@
 use ExtUtils::MakeMaker;
 use Config;
+use File::Spec;
 
 my $e = $Config{'exe_ext'};
 my $o = $Config{'obj_ext'};
 my $exeout_flag = '-o ';
+my $core = grep { $_ eq 'PERL_CORE=1' } @ARGV;
 if ($^O eq 'MSWin32') {
     if ($Config{'cc'} =~ /^cl/i) {
        $exeout_flag = '-Fe';
@@ -14,25 +16,50 @@ if ($^O eq 'MSWin32') {
 }
 
 WriteMakefile(
-    NAME       => "B",
-    VERSION    => "a5",
-    PL_FILES   => { 'defsubs_h.PL' => 'defsubs.h' },
-    MAN3PODS   => {},
-    clean      => {
-       FILES           => "perl$e *$o B.c defsubs.h *~"
+    NAME           => "B",
+    VERSION_FROM    => "B.pm",
+    PL_FILES       => { 'defsubs_h.PL' => 'defsubs.h' },
+    MAN3PODS       => {},
+    clean          => {
+       FILES       => "perl$e *$o B.c defsubs.h *~"
     }
-);   
+);
 
 package MY;
 
 sub post_constants {
     "\nLIBS = $Config::Config{libs}\n"
-}    
+}
+
+sub headerfilefile {
+    push @makefileopts, MAN3PODS => {};
+}
 
-sub postamble {
-'
-B$(OBJ_EXT) : defsubs.h 
+sub headerpath {
+    if ($core) {
+       return File::Spec->catdir(File::Spec->updir,
+                                  File::Spec->updir);
+    } else {
+       return File::Spec->catdir($Config::Config{archlibexp}, "CORE");
+    }
+}
+
+sub MY::postamble {
+    my $headerpath = headerpath();
+    my @headers = map { File::Spec->catfile($headerpath, $_) } qw(op.h cop.h);
+    my $noecho = shift->{NOECHO};
+
+"
+B\$(OBJ_EXT) : defsubs.h
+
+defsubs.h :: @headers defsubs_h.PL
+       \$(PERL) -I\$(INST_ARCHLIB) -I\$(INST_LIB) -I\$(PERL_ARCHLIB) -I\$(PERL_LIB) defsubs_h.PL defsubs.h $headerpath
+"
+}
 
-defsubs.h :: ../../op.h ../../cop.h
-'
+sub MY::processPL {
+    my $text = shift->SUPER::processPL(@_);
+    # Append our extra parameter
+    $text =~ s/^\t.*defsubs_h\.PL.*/$& . ' ' . headerpath()/me;
+    $text;
 }