From: Yves Orton Date: Sun, 2 Jul 2006 15:19:58 +0000 (+0200) Subject: Re: Win32API::File now in core X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fa191b070bed072781b8010d0828c460d6614dfb;p=p5sagit%2Fp5-mst-13.2.git Re: Win32API::File now in core Message-ID: <9b18b3110607020619s4c4480d8ra3e681aee69a8d7@mail.gmail.com> Sync blead with Win32API-File-0.1001 (plus change to sync README too) p4raw-id: //depot/perl@28467 --- diff --git a/win32/ext/Win32API/File/Changes b/win32/ext/Win32API/File/Changes index 147b694..b63b276 100644 --- a/win32/ext/Win32API/File/Changes +++ b/win32/ext/Win32API/File/Changes @@ -1,5 +1,9 @@ Revision history for Perl extension Win32API::File. +0.1001 2006-07-02 14:04 + - Minor doc tweak, release as standalone for sychronization with + with version in bleadperl (future 5.10) + 0.10 2005-09-09 - Added GetFileAttributes() function and corresponding constants. (Patches from Kenneth Olwing from 2004-11-12). diff --git a/win32/ext/Win32API/File/File.pm b/win32/ext/Win32API/File/File.pm index b597fcf..74494fa 100644 --- a/win32/ext/Win32API/File/File.pm +++ b/win32/ext/Win32API/File/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.10'; +$VERSION= '0.1001'; use base qw( Exporter DynaLoader Tie::Handle IO::File ); @@ -1363,10 +1363,10 @@ Examples: $hFlop= CreateFile( "//./A:", GENERIC_READ(), FILE_SHARE_READ(), [], OPEN_EXISTING(), 0, [] ) or die "Can't prevent others from writing to floppy: $^E\n"; - $hDisk= createFile( $sFilePath, FILE_READ_ATTRIBUTES(), + $hDisk= CreateFile( $sFilePath, FILE_READ_ATTRIBUTES(), FILE_SHARE_READ()|FILE_SHARE_WRITE(), [], OPEN_EXISTING(), 0, [] ) or die "Can't read attributes of $sFilePath: $^E\n"; - $hTemp= createFile( "$ENV{Temp}/temp.$$", GENERIC_WRITE(), 0, + $hTemp= CreateFile( "$ENV{Temp}/temp.$$", GENERIC_WRITE(), 0, CREATE_NEW(), FILE_FLAG_DELETE_ON_CLOSE()|attrLetsToBits("hst"), [] ) or die "Can't create temporary file, temp.$$: $^E\n"; diff --git a/win32/ext/Win32API/File/README b/win32/ext/Win32API/File/README index ead08d5..c460844 100644 --- a/win32/ext/Win32API/File/README +++ b/win32/ext/Win32API/File/README @@ -126,7 +126,8 @@ Plus the following constants: VALID_NTFT PARTITION_NTFT Comments, additions, and bug reports are welcomed. Please address -technical questions that are not full bug reports to one of the Usenet -newsgroups comp.lang.perl.modules or comp.lang.perl.moderated. +technical questions that are not full bug reports to + +http://perlmonks.org/index.pl?node=Seekers%20of%20Perl%20Wisdom Tye McQueen, tye@metronet.com, http://www.metronet.com/~tye/.