ext/B/Makefile.PL

   1 use ExtUtils::MakeMaker;
   2 use Config;
   3 use File::Spec;
   4
   5 my $e = $Config{'exe_ext'};
   6 my $o = $Config{'obj_ext'};
   7 my $exeout_flag = '-o ';
   8 if ($^O eq 'MSWin32') {
   9     if ($Config{'cc'} =~ /^cl/i) {
  10         $exeout_flag = '-Fe';
  11     }
  12     elsif ($Config{'cc'} =~ /^bcc/i) {
  13         $exeout_flag = '-e';
  14     }
  15 }
  16
  17 WriteMakefile(
  18     NAME            => "B",
  19     VERSION_FROM    => "B.pm",
  20     PL_FILES        => { 'defsubs_h.PL' => 'defsubs.h' },
  21     MAN3PODS        => {},
  22     clean           => {
  23         FILES       => "perl$e *$o B.c defsubs.h *~"
  24     }
  25 );
  26
  27 package MY;
  28
  29 sub post_constants {
  30     "\nLIBS = $Config::Config{libs}\n"
  31 }
  32
  33 sub upupfile {
  34     File::Spec->catfile(File::Spec->updir,
  35                         File::Spec->updir, $_[0]);
  36 }
  37
  38 sub MY::postamble {
  39     my $op_h   = upupfile('op.h');
  40     my $cop_h  = upupfile('cop.h');
  41     my $noecho = shift->{NOECHO};
  42 "
  43 B\$(OBJ_EXT) : defsubs.h
  44
  45 defsubs.h :: $op_h $cop_h
  46         $noecho \$(NOOP)
  47 "
  48 }