From 300c1eb6d37d46078d448d6d58938d5a80cd68ff Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 23 Apr 2014 21:46:20 +0000 Subject: (tl)perl 5.18.2 for windows from siep git-svn-id: svn://tug.org/texlive/trunk@33648 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/Win32API/File.pm | 13 ++++++++++++- Master/tlpkg/tlperl/lib/Win32API/File/cFile.pc | 3 +++ 2 files changed, 15 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/tlperl/lib/Win32API') diff --git a/Master/tlpkg/tlperl/lib/Win32API/File.pm b/Master/tlpkg/tlperl/lib/Win32API/File.pm index cdaac67d23f..03b736eb77a 100644 --- a/Master/tlpkg/tlperl/lib/Win32API/File.pm +++ b/Master/tlpkg/tlperl/lib/Win32API/File.pm @@ -10,7 +10,7 @@ use Fcntl qw( O_RDONLY O_RDWR O_WRONLY O_APPEND O_BINARY O_TEXT ); use vars qw( $VERSION @ISA ); use vars qw( @EXPORT @EXPORT_OK @EXPORT_FAIL %EXPORT_TAGS ); -$VERSION= '0.1200'; +$VERSION= '0.1201'; use base qw( Exporter DynaLoader Tie::Handle IO::File ); @@ -146,6 +146,9 @@ my $FFFFFFFF = $_64BITINT ? 0xFFFFFFFF : Math::BigInt->new(0xFFFFFFFF); PARTITION_XINT13 PARTITION_XINT13_EXTENDED PARTITION_PREP PARTITION_UNIX VALID_NTFT PARTITION_NTFT )], + STD_HANDLE_ => [qw( + STD_INPUT_HANDLE STD_OUTPUT_HANDLE + STD_ERROR_HANDLE )], ); @EXPORT_OK= (); { @@ -3014,6 +3017,14 @@ Constants describing partition types. PARTITION_PREP PARTITION_UNIX VALID_NTFT PARTITION_NTFT +=item C<":STD_HANDLE_"> + +Constants for GetStdHandle and SetStdHandle + + STD_ERROR_HANDLE + STD_INPUT_HANDLE + STD_OUTPUT_HANDLE + =item C<":ALL"> All of the above. diff --git a/Master/tlpkg/tlperl/lib/Win32API/File/cFile.pc b/Master/tlpkg/tlperl/lib/Win32API/File/cFile.pc index da00f413aa2..b44fbe85741 100644 --- a/Master/tlpkg/tlperl/lib/Win32API/File/cFile.pc +++ b/Master/tlpkg/tlperl/lib/Win32API/File/cFile.pc @@ -162,4 +162,7 @@ sub SEM_NOOPENFILEERRORBOX () { 32768 } sub TRUNCATE_EXISTING () { 5 } sub Unknown () { 0 } sub VALID_NTFT () { 192 } +sub STD_ERROR_HANDLE () { 0xfffffff4 } +sub STD_INPUT_HANDLE () { 0xfffffff6 } +sub STD_OUTPUT_HANDLE () { 0xfffffff5 } 1; -- cgit v1.2.3