Upgrade to Win32API-File 0.1101
authorSteve Hay <SteveHay@planit.com>
Fri, 12 Dec 2008 17:50:55 +0000 (17:50 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sun, 15 Feb 2009 00:12:17 +0000 (00:12 +0000)
(Causes a couple of "prerequisite not found" build warnings, but all
works okay otherwise)

p4raw-id: //depot/perl@35079

(cherry picked from commit 3826db83dfffbbaee62e51e9a0f052b407c24562)

ext/Win32API/File/Changes
ext/Win32API/File/ExtUtils/Myconst2perl.pm
ext/Win32API/File/File.pm
ext/Win32API/File/Makefile.PL
ext/Win32API/File/README
ext/Win32API/File/t/file.t

index b63b276..9a69101 100644 (file)
@@ -1,8 +1,30 @@
 Revision history for Perl extension Win32API::File.
 
+0.1101 by Alexandr Ciornii 2008-11-17
+        - require Win32.pm (not core on Cygwin 5.8.8)
+        - file.t uses Win32.pm only if necessary
+
+0.1100 by Alexandr Ciornii 2008-11-08
+        - license in Makefile.PL and README
+
+0.1001_02 by Alexandr Ciornii 2008-11-01
+        - list of changes from perl 5.10
+        - adaptation of core perl changes for CPAN
+        - ExtUtils::Myconst2perl hidden from indexing
+        - pod.t
+        - better Makefile.PL
+
+0.1001_01 (perl 5.10)
+        - tests adapted for core
+        - file.t moved from string checking to error code check
+        - file.t uses File::Spec->tmpdir()
+        - require Math::BigInt only if not in 64-bit mode
+        - remove indirect object notation in File.pm
+        - "Exterminate PL_na" by Nicholas Clark
+
 0.1001 2006-07-02 14:04
        - Minor doc tweak, release as standalone for sychronization with
-         with version in bleadperl (future 5.10)
+         version in bleadperl (future 5.10)
 
 0.10 2005-09-09
        - Added GetFileAttributes() function and corresponding constants.
index d4f936e..17dace7 100644 (file)
@@ -1,7 +1,8 @@
 # This should eventually become part of MakeMaker as ExtUtils::Mkconst2perl.
 # Documentation for this is very skimpy at this point.  Full documentation
 # will be added to ExtUtils::Mkconst2perl when it is created.
-package ExtUtils::Myconst2perl;
+package # Hide from PAUSE
+         ExtUtils::Myconst2perl;
 
 use strict;
 use Config;
index 1742cbe..a647352 100644 (file)
@@ -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.1001_01';
+$VERSION= '0.1101';
 
 use base qw( Exporter DynaLoader Tie::Handle IO::File );
 
index a753db5..6e5511a 100644 (file)
@@ -1,17 +1,20 @@
 #!/usr/bin/perl -w
+use 5.001; #not tested
 use ExtUtils::MakeMaker;
 use Config;
 use strict;
 # See lib/ExtUtils/MakeMaker.pm for details of how to influence
 # the contents of the Makefile that is written.
+unless ($^O eq "MSWin32" || $^O eq "cygwin" || $^O eq "interix") { #not tested on Interix
+    die "OS unsupported\n";
+}
+
 WriteMakefile(
     'NAME'     => 'Win32API::File',
     'VERSION_FROM' => 'File.pm', # finds $VERSION
     (  $Config{archname} =~ /-object\b/i  ?  ( 'CAPI' => 'TRUE' )  :  ()  ),
-    (  $] < 5.005  ?  ()  :
-       ( 'AUTHOR'              => 'Tye McQueen <tye@metronet.com>',
-         'ABSTRACT_FROM'       => 'File.pm' )
-    ),
+    'AUTHOR'           => 'Tye McQueen <tye@metronet.com>',
+    'ABSTRACT_FROM'    => 'File.pm',
     'postamble' => { IMPORT_LIST => [qw(/._/ !/[a-z]/ :MEDIA_TYPE)],
                     IFDEF => "!/[a-z\\d]/",
                     CPLUSPLUS => 1,
@@ -20,6 +23,17 @@ WriteMakefile(
                     NO_REBUILD => 1,
                   },
     (  ! $Config{libperl}  ?  ()  :  ( LIBPERL_A => $Config{libperl} )  ),
+    'INSTALLDIRS'   => ($] >= 5.008009 ? 'perl' : 'site'),
+    ($ExtUtils::MakeMaker::VERSION ge '6.31'? 
+     ('LICENSE'        => 'perl', ) : ()),
+    ($ExtUtils::MakeMaker::VERSION ge '6.48'? 
+     ('MIN_PERL_VERSION' => 5.001,) : ()),
+    'PREREQ_PM'        => {
+        'IO::File' => 0, #build
+        'File::Spec' => 0, #build
+        'Math::BigInt' => 0,
+        'Win32' => 0,
+    }
 );
 
 # Replacement for MakeMaker's "const2perl section" for versions
index c460844..93d287a 100644 (file)
@@ -131,3 +131,6 @@ 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/.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
index 0840feb..0039b57 100644 (file)
@@ -24,7 +24,7 @@ END {print "not ok 1\n" unless $loaded;}
 # the ../lib directory in @INC will no longer work once
 # we chdir() into the TEMP directory.
 
-use Win32;
+require Win32 unless defined &Win32::FormatMessage;
 use File::Spec;
 use Carp;
 use Carp::Heavy;