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