diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32/API/Test.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Win32/API/Test.pm | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/Win32/API/Test.pm b/Master/tlpkg/tlperl/lib/Win32/API/Test.pm index 55bf600b666..cd96b7c2b8d 100644 --- a/Master/tlpkg/tlperl/lib/Win32/API/Test.pm +++ b/Master/tlpkg/tlperl/lib/Win32/API/Test.pm @@ -5,6 +5,8 @@ # package Win32::API::Test; +use strict; +use warnings; sub is_perl_64bit () { use Config; @@ -14,6 +16,16 @@ sub is_perl_64bit () { return; } +sub can_fork () { + use Config; + + my $native = $Config{d_fork} || $Config{d_pseudofork}; + my $win32 = ($^O eq 'MSWin32' || $^O eq 'NetWare'); + my $ithr = $Config{useithreads} and $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/; + + return $native || ($win32 and $ithr); +} + sub compiler_name () { use Config; my $cc = $Config{ccname}; @@ -73,7 +85,7 @@ sub compiler_version_from_shell () { sub find_test_dll { require File::Spec; - + my $dll; my $default_dll_name = is_perl_64bit() ? 'API_test64.dll' @@ -89,6 +101,18 @@ sub find_test_dll { return (undef); } +#const optimize +BEGIN { + package main; + use Config; + eval ' sub PTR_LET () { "' + .($Config{ptrsize} == 8 ? 'Q' : 'L'). + '" }'; + eval 'sub IV_LET () { '.($] <= 5.007002 ? 'L':'J').' }'; + eval 'sub IV_SIZE () { '.length(pack(IV_LET(),0)).' }'; + package Win32::API::Test; +} + 1; __END__ |