DBD-ASAny
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
}
}
last if $found;
}
if( !$found ) {
die "** Unable to find Adaptiver Server Anywhere installation\n\n** Please set the ASANY environment variable.\n";
}
print "Using ASA version ${asa_version_major} in $ASA\n";
my $is_gcc;
if( "$Config{cc}" eq "gcc" ||
"$Config{gccversion}" ne "" ) {
$is_gcc = 1;
printf( "Using GNU compiler\n" );
} else {
$is_gcc = 0;
printf( "Using non-GNU compiler %s\n", $Config{cc} );
}
my $perllib;
$perllib = $Config{libperl};
if( $Config{osname} ne "MSWin32" ) {
$perllib =~ s/^lib//;
}
$perllib =~ s/\..*//;
my $sysliblist;
my $libdir;
$sysliblist = "";
if( $Config{osname} eq "MSWin32" ) {
if( $Config{archname} =~ /-x64-/ ) {
$sysliblist .= qq( -L"$ASA/x64/lib" );
} else {
$sysliblist .= qq( -L"$ASA/win32/lib" );
}
$sysliblist .= qq( -L"$Config{archlibexp}/CORE" );
foreach $libdir ( split( /;/, $ENV{LIB} ) ) {
$sysliblist .= qq( -L"$libdir" );
}
$sysliblist .= " -ldblibtm ";
} else {
if( $asa_version_major >= 9 ) {
$sysliblist .= "-L$ASA/lib${perl_bitness} ";
} else {
$sysliblist .= "-L$ASA/lib ";
}
$sysliblist .= "-L$Config{archlibexp}/CORE ";
if( $Config{useithreads} ) {
$sysliblist .= " -ldblib${asa_version_major}_r -ldbtasks${asa_version_major}_r";
} else {
$sysliblist .= " -ldblib${asa_version_major} -ldbtasks${asa_version_major}";
}
}
# On UNIX platforms, leave the perllib symbols unresolved and
# get them from the perl executable at runtime. Libperl.a is not
# built as relocatable code so linking against it now will leave
# relocations in a shared object which is forbidden on some
# platforms.
$opts{CCFLAGS} = $Config{ccflags};
if( $Config{osname} eq "MSWin32" ) {
$sysliblist .= " -l${perllib}";
# $opts{CCFLAGS} =~ s/-O1//;
$opts{CCFLAGS} =~ s/-Gf\s*/-GF /;
} elsif( "$Config{osname}" eq "solaris" ) {
$sysliblist .= " -lsocket -lnsl -lm -lc";
if( $is_gcc ) {
# $opts{dynamic_lib}{OTHERLDFLAGS} .= " -Wl,-z,defs";
} else {
$opts{CCFLAGS} .= " -xCC -g";
# $opts{dynamic_lib}{OTHERLDFLAGS} .= " -z defs";
}
} elsif( "$Config{osname}" eq "hpux" ) {
if( ! $is_gcc ) {
$opts{CCFLAGS} =~ s/-Aa\s*//;
}
} elsif( "$Config{osname}" eq "aix" ) {
if( ! $is_gcc ) {
$opts{CCFLAGS} .= " -qcpluscmt"
}
}
if( $is_gcc ) {
# $opts{dynamic_lib}{OTHERLDFLAGS} .= ' -shared';
}
$opts{LIBS} = [ $sysliblist ];
if( $Config{osname} eq "MSWin32" ) {
$opts{INC} = qq( -I"$ASA/h" );
$opts{INC} .= qq( -I"$dbi_arch_dir" );
$opts{DEFINE} .= ' -DWINNT -D_CRT_SECURE_NO_DEPRECATE';
$opts{LD} = "\$(PERL) dolink.pl \$@";
} else {
$opts{INC} = "-I$ASA/include ";
$opts{INC} .= "-I$dbi_arch_dir ";
$opts{DEFINE} .= ' -DUNIX';
}
# $opts{OPTIMIZE}="-Zi";
# $opts{dynamic_lib}{OTHERLDFLAGS} .= ' -debug';
# uncomment log key platform information to help me help you quickly
print "System: perl$] @Config{qw(myuname archname dlsrc)}\n";
print "Compiler: @Config{qw(cc optimize ccflags)}\n";
WriteMakefile(%opts);
exit 0;
sub MY::postamble {
return( dbd_postamble(@_) .
"
dbdimp.c: dbdimp.sqc
sqlpp -r -q -n -o ${sqlpp_platform} dbdimp.sqc dbdimp.c
" );
}
__END__
( run in 0.576 second using v1.01-cache-2.11-cpan-71847e10f99 )