In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/e52401004cbdb387f98592a05da589e30acf556c?hp=8ab0bcfc7ce7d2b5699bf398ff541740c1471c23>
- Log ----------------------------------------------------------------- commit e52401004cbdb387f98592a05da589e30acf556c Author: Steve Hay <[email protected]> Date: Thu Jan 29 14:02:36 2015 +0000 Upgrade Win32API-File from version 0.1201 to 0.1202 ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 6 +----- cpan/Win32API-File/File.pm | 20 ++++++++++---------- pod/perldelta.pod | 6 ++++++ t/porting/customized.dat | 2 -- 4 files changed, 17 insertions(+), 17 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 0824f99..e0f8ee5 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1285,15 +1285,11 @@ use File::Glob qw(:case); }, 'Win32API::File' => { - 'DISTRIBUTION' => 'CHORNY/Win32API-File-0.1201.tar.gz', + 'DISTRIBUTION' => 'CHORNY/Win32API-File-0.1202.tar.gz', 'FILES' => q[cpan/Win32API-File], 'EXCLUDED' => [ qr{^ex/}, - 't/pod.t', ], - # Already merged upstream: - # https://github.com/chorny/Win32API-File/commit/1657e97900 - 'CUSTOMIZED' => [qw(File.pm File.xs)], }, 'XSLoader' => { diff --git a/cpan/Win32API-File/File.pm b/cpan/Win32API-File/File.pm index bf2d531..ca7cf3c 100644 --- a/cpan/Win32API-File/File.pm +++ b/cpan/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.1201_01'; +$VERSION= '0.1202'; use base qw( Exporter DynaLoader Tie::Handle IO::File ); @@ -946,7 +946,7 @@ This is a Perl-friendly wrapper around C<CreateFile>. On failure, C<$hObject> gets set to a false value and C<regLastError()> and C<$^E> are set to the reason for the failure. Otherwise, -C<$hObject> gets set to a Win32 native file handle which is alwasy +C<$hObject> gets set to a Win32 native file handle which is always a true value [returns C<"0 but true"> in the impossible(?) case of the handle having a value of C<0>]. @@ -1163,7 +1163,7 @@ indicate the type of access desired. C<GENERIC_READ> is the default. =item Create => $uCreate -C<$sCreate> should be a string constaing zero or one character from +C<$sCreate> should be a string containing zero or one character from C<"ktn"> and zero or one character from C<"ce">. These stand for "Keep if exists", "Truncate if exists", "New file only", "Create if none", and "Existing file only". These are translated into a @@ -1205,7 +1205,7 @@ Examples: =item C<@roots= getLogicalDrives()> Returns the paths to the root directories of all logical drives -currently defined. This includes all types of drive lettters, such +currently defined. This includes all types of drive letters, such as floppies, CD-ROMs, hard disks, and network shares. A typical return value on a poorly equipped computer would be C<("A:\\","C:\\")>. @@ -1229,7 +1229,7 @@ same file name. If C<$bFailIfExists> is true and C<$sNewFileName> is the path to a file that already exists, then C<CopyFile> will fail. If -C<$bFailIfExists> is falsea, then the copy of the C<$sOldFileNmae> +C<$bFailIfExists> is false, then the copy of the C<$sOldFileNmae> file will overwrite the C<$sNewFileName> file if it already exists. Like most routines, returns a true value if successful and a false @@ -1301,7 +1301,7 @@ on that partition. The raw floppy disk. Doesn't work under Windows 95. This allows you to read or write raw sectors of the floppy disk and to use C<DeviceIoControl> to perform miscellaneous queries and operations -to the floopy disk or drive. +to the floppy disk or drive. Locking this for exclusive access prevents all access to the floppy. @@ -1327,7 +1327,7 @@ If another process currently has read, write, and/or delete access to the file and you don't allow that level of sharing, then your call to C<CreateFile> will fail. If you requested read, write, and/or delete access and another process already has the file open but doesn't allow -that level of sharing, thenn your call to C<createFile> will fail. Once +that level of sharing, then your call to C<createFile> will fail. Once you have the file open, if another process tries to open it with read, write, and/or delete access and you don't allow that level of sharing, then that process won't be allowed to open the file. @@ -2197,7 +2197,7 @@ Only bits set in C<$uMask> will be modified by C<SetHandleInformation>. C<$uFlags> is an unsigned value having zero or more of the bits C<HANDLE_FLAG_INHERIT> and C<HANDLE_FLAG_PROTECT_FROM_CLOSE> set. -For each bit set in C<$uMask>, the cooresponding bit in the handle's +For each bit set in C<$uMask>, the corresponding bit in the handle's flags is set to the value of the corresponding bit in C<$uFlags>. If C<$uOldFlags> were the value of the handle's flags before the @@ -2673,7 +2673,7 @@ value for any partitions you wish to have changed, added, or deleted. Change the type of the partition. C<$opOutBuf> should be C<[]>. C<$pInBuf> should be a C<SET_PARTITION_INFORMATION> data structure -which is just a single byte containing the new parition type [see +which is just a single byte containing the new partition type [see the C<":PARTITION_"> export class for a list of known types]: $pInBuf= pack( "C", $uPartitionType ); @@ -2831,7 +2831,7 @@ driver of size C<$uLogBufferSize>: =item DISK_LOGGING_STOP -Stop loggin each disk request: +Stop logging each disk request: $pInBuf= pack( "C L L", 1, 0, 0 ); diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 82675b8..534943a 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -145,6 +145,12 @@ L<PerlIO::scalar> has been upgraded from version 0.21 to 0.22. Attempting to write at file positions impossible for the platform now fail early rather than wrapping at 4GB. +=item * + +L<Win32API::File> has been upgraded from version 0.1201 to 0.1202 + +Building in C++ mode now works. + =back =head2 Removed Modules and Pragmata diff --git a/t/porting/customized.dat b/t/porting/customized.dat index d32b788..9bde2de 100644 --- a/t/porting/customized.dat +++ b/t/porting/customized.dat @@ -13,8 +13,6 @@ Text::Balanced cpan/Text-Balanced/t/08_extvar.t 0776ef2cbdad5b1fbefb300541d07921 Text::Balanced cpan/Text-Balanced/t/09_gentag.t 42361b5dfb3bb728bce20f4fb0d92ccfb27c2ba7 Text::ParseWords cpan/Text-ParseWords/t/ParseWords.t 9bae51c9b944cd5c0bbabe9d397e573976a2be8e Text::ParseWords cpan/Text-ParseWords/t/taint.t 3cff0dae812801f7aa1738d6070508f2c5bcc2e5 -Win32API::File cpan/Win32API-File/File.pm 91709e8f13b262807816e727e678c9e322bf6d41 -Win32API::File cpan/Win32API-File/File.xs 772b60e157d8d617715b93775e868686554a5a69 podlators cpan/podlators/scripts/pod2man.PL f81acf53f3ff46cdcc5ebdd661c5d13eb35d20d6 podlators cpan/podlators/scripts/pod2text.PL b4693fcfe4a0a1b38a215cfb8985a65d5d025d69 threads dist/threads/lib/threads.pm e1b210ff6d66a0e1d43aa8f040954fc811e3d250 -- Perl5 Master Repository
