#!/usr/bin/perl # # $Id: Makefile.PL,v 1.2 2008/10/01 11:10:12 int32 Exp $ # use ExtUtils::MakeMaker; my $DEBUG = grep { m/^--debug$/ } @ARGV; my $can_compile = $^O =~ /win32|cygwin/i; warn "** This module can only work under Win32\n" unless $can_compile; my @make = ( NAME => 'Win32::GuiTest', VERSION_FROM => 'lib/Win32/GuiTest.pm', $can_compile ? ( OBJECT => 'GuiTest$(OBJ_EXT) DibSect$(OBJ_EXT)' , XS => { 'GuiTest.xs' => 'GuiTest.cpp' }, ) : ( C => [], XS => {},), TYPEMAPS => ['perlobject.map' ], ( $DEBUG ? ( (( $^O =~ /cygwin/i) ? ( CCFLAGS => '-MD -DWIN32 -Z7 -DDEBUG -D_DEBUG', OPTIMIZE => '-Od' ) : ( CCFLAGS => '-g', )) ) : ()), (( $^O =~ /cygwin/i) ? ( LD => 'g++', LDDLFLAGS => '-shared', LIBS => ['-L/usr/lib/w32api -lgdi32'], ) : ()), ABSTRACT_FROM => 'lib/Win32/GuiTest.pm', AUTHOR => 'Dennis K. Paulsen (ctrondlp@cpan.org), Ernesto Guisado (erngui@acm.org)', ); WriteMakefile(@make); package MY; sub xs_c { ' .xs.cpp: $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) $(XSPROTOARG) $(XSUBPPARGS) $*.xs >xstmp.c && $(MV) xstmp.c $*.cpp '; } sub distdir { my $t = shift-> SUPER::distdir(@_); $t =~ s/(create_distdir distmeta)/my_create_predist $1/; $t . ' my_create_predist: $(PERL) make_eg.pl @pod2text lib/Win32/GuiTest.pm > README '; }