summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Win32/API/Test.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32/API/Test.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Win32/API/Test.pm26
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__