git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/debian/libwx-perl/usr/lib/perl5/Wx/build/MakeMaker/Win32_MSVC.pm

   1 package Wx::build::MakeMaker::Win32_MSVC;
   2
   3 use strict;
   4 use base 'Wx::build::MakeMaker::Win32';
   5
   6 use Wx::build::Utils qw(pipe_stderr);
   7
   8 sub _res_file { 'Wx.res' }
   9 sub _res_command { 'rc -I%incdir %src' }
  10 sub _strip_command {
  11 return <<'EOT';
  12         $(NOOP)
  13 EOT
  14 }
  15
  16 my $cl_version;
  17
  18 {
  19     my @head = pipe_stderr( "cl /help" );
  20     $head[0] =~ /Version (\d+\.+).\d+/ and $cl_version = $1;
  21 }
  22
  23 sub dynamic_lib {
  24   my $this = shift;
  25   my $text = $this->SUPER::dynamic_lib( @_ );
  26
  27   return $text if $cl_version < 14 || eval ExtUtils::MakeMaker->VERSION >= 6.33;
  28
  29   $text .= <<'EOT' if $text && $text =~ /\$\@/;
  30         mt -manifest $@.manifest -outputresource:$@;2
  31 EOT
  32
  33   return $text;
  34 }
  35
  36 =pod
  37
  38 sub post_initialize {
  39     my( $self ) = @_;
  40
  41     $self->{PERL_LIB} = 'C:\Programmi\Devel\Perl\ActivePerl\588.817\xlib\wince-arm-pocket-wce300';
  42     $self->{PERL_ARCHLIB} = 'C:\Programmi\Devel\Perl\ActivePerl\588.817\xlib\wince-arm-pocket-wce300';
  43     $self->{PERL_INC} = $self->catdir( $self->{PERL_LIB}, "CORE" );
  44
  45     return '';
  46 }
  47
  48 sub tool_xsubpp {
  49     my( $self ) = @_;
  50
  51     package MY;
  52     local $self->{PERL_LIB} = 'C:\Programmi\Devel\Perl\ActivePerl\588.817\lib';
  53     return $self->SUPER::tool_xsubpp;
  54 }
  55
  56 =cut
  57
  58 1;
  59
  60 # local variables:
  61 # mode: cperl
  62 # end: