summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Win32API/File.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32API/File.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Win32API/File.pm6
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 {