diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-07-02 17:19:58 +0200 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2006-07-03 08:23:03 +0000 |
| commit | fa191b070bed072781b8010d0828c460d6614dfb (patch) | |
| tree | 233a29037c80eff3d520670185ad3498160577ab /win32 | |
| parent | 466787eb2f756fc2ca8af7ea23633e8818806e45 (diff) | |
| download | perl-fa191b070bed072781b8010d0828c460d6614dfb.tar.gz | |
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
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/ext/Win32API/File/Changes | 4 | ||||
| -rw-r--r-- | win32/ext/Win32API/File/File.pm | 6 | ||||
| -rw-r--r-- | win32/ext/Win32API/File/README | 5 |
3 files changed, 10 insertions, 5 deletions
diff --git a/win32/ext/Win32API/File/Changes b/win32/ext/Win32API/File/Changes index 147b69471c..b63b2763da 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 b597fcfff0..74494fa7ec 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 ead08d5080..c460844d4d 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/. |