From: Yves Orton <demerphq@gmail.com>
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;hp=466787eb2f756fc2ca8af7ea23633e8818806e45;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/.