diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32API/File.pm')
-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 { |