diff options
author | Karl Berry <karl@freefriends.org> | 2017-04-18 23:10:57 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-04-18 23:10:57 +0000 |
commit | 40b4b6e177c62a14c166dbba6adf3abc415af4b2 (patch) | |
tree | 2996bf29509c806bd8064fb6cf38092c1b375ff8 /Master/tlpkg/tlperl/lib/Win32API | |
parent | 8e743c86b6872f30b7a35c72aa944455157d4b3f (diff) |
tlperl 5.24.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@43914 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32API')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Win32API/File.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/Win32API/File.pm b/Master/tlpkg/tlperl/lib/Win32API/File.pm index ca7cf3c8995..10c5d2ff662 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.1202'; +$VERSION= '0.1203'; use base qw( Exporter DynaLoader Tie::Handle IO::File ); @@ -317,8 +317,8 @@ sub OsFHandleOpen { if ($@) { return tie *{$fh}, __PACKAGE__, $osfh; } - return undef if $fd < 0; - return open( $fh, $pref."&=".$fd ); + return undef unless $fd; + return open( $fh, $pref."&=".(0+$fd) ); } sub GetOsFHandle { |