summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Win32API
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-04-23 21:46:20 +0000
committerKarl Berry <karl@freefriends.org>2014-04-23 21:46:20 +0000
commit300c1eb6d37d46078d448d6d58938d5a80cd68ff (patch)
tree23a0a8b9f8f5460b405119c4d3c163d2d488ca5e /Master/tlpkg/tlperl/lib/Win32API
parented55d86b7c5e18f6eccce80a1fb1423ca40a23b5 (diff)
(tl)perl 5.18.2 for windows from siep
git-svn-id: svn://tug.org/texlive/trunk@33648 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32API')
-rw-r--r--Master/tlpkg/tlperl/lib/Win32API/File.pm13
-rw-r--r--Master/tlpkg/tlperl/lib/Win32API/File/cFile.pc3
2 files changed, 15 insertions, 1 deletions
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;