Bump all IO modules to 1.39 and set required Perl to 5.8.1
authorTodd Rinaldo <toddr@cpan.org>
Thu, 19 Apr 2018 19:54:52 +0000 (14:54 -0500)
committerTodd Rinaldo <toddr@cpan.org>
Thu, 19 Apr 2018 20:48:23 +0000 (15:48 -0500)
Even with ppport.h, providing a dual life IO that supports 5.6.2 is impractical.
Given the toolchain policy of 5.8.1, we don't think this is a significant change

dist/IO/IO.pm
dist/IO/lib/IO/Dir.pm
dist/IO/lib/IO/File.pm
dist/IO/lib/IO/Handle.pm
dist/IO/lib/IO/Pipe.pm
dist/IO/lib/IO/Poll.pm
dist/IO/lib/IO/Seekable.pm
dist/IO/lib/IO/Select.pm
dist/IO/lib/IO/Socket.pm
dist/IO/lib/IO/Socket/INET.pm
dist/IO/lib/IO/Socket/UNIX.pm

index a9a5852..9f79781 100644 (file)
@@ -7,7 +7,7 @@ use Carp;
 use strict;
 use warnings;
 
-our $VERSION = "1.38";
+our $VERSION = "1.39";
 XSLoader::load 'IO', $VERSION;
 
 sub import {
index 7326d78..e583fd3 100644 (file)
@@ -6,22 +6,21 @@
 
 package IO::Dir;
 
-use 5.006;
+use 5.008_001;
 
 use strict;
 use Carp;
 use Symbol;
 use Exporter;
 use IO::File;
-our(@ISA, $VERSION, @EXPORT_OK);
 use Tie::Hash;
 use File::stat;
 use File::Spec;
 
-@ISA = qw(Tie::Hash Exporter);
-$VERSION = "1.10";
-$VERSION = eval $VERSION;
-@EXPORT_OK = qw(DIR_UNLINK);
+our @ISA = qw(Tie::Hash Exporter);
+our $VERSION = "1.39";
+
+our @EXPORT_OK = qw(DIR_UNLINK);
 
 sub DIR_UNLINK () { 1 }
 
index 8b29bac..55c5e20 100644 (file)
@@ -124,9 +124,8 @@ Derived from FileHandle.pm by Graham Barr E<lt>F<gbarr@pobox.com>E<gt>.
 
 =cut
 
-use 5.006_001;
+use 5.008_001;
 use strict;
-our($VERSION, @EXPORT, @EXPORT_OK, @ISA);
 use Carp;
 use Symbol;
 use SelectSaver;
@@ -134,11 +133,11 @@ use IO::Seekable;
 
 require Exporter;
 
-@ISA = qw(IO::Handle IO::Seekable Exporter);
+our @ISA = qw(IO::Handle IO::Seekable Exporter);
 
-$VERSION = "1.16";
+our $VERSION = "1.39";
 
-@EXPORT = @IO::Seekable::EXPORT;
+our @EXPORT = @IO::Seekable::EXPORT;
 
 eval {
     # Make all Fcntl O_XXX constants available for importing
index 0a94992..6075057 100644 (file)
@@ -260,21 +260,19 @@ Derived from FileHandle.pm by Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
 
 =cut
 
-use 5.006_001;
+use 5.008_001;
 use strict;
-our($VERSION, @EXPORT_OK, @ISA);
 use Carp;
 use Symbol;
 use SelectSaver;
 use IO ();     # Load the XS module
 
 require Exporter;
-@ISA = qw(Exporter);
+our @ISA = qw(Exporter);
 
-$VERSION = "1.37";
-$VERSION = eval $VERSION;
+our $VERSION = "1.39";
 
-@EXPORT_OK = qw(
+our @EXPORT_OK = qw(
     autoflush
     output_field_separator
     output_record_separator
index 684069f..f24220f 100644 (file)
@@ -6,15 +6,14 @@
 
 package IO::Pipe;
 
-use 5.006_001;
+use 5.008_001;
 
 use IO::Handle;
 use strict;
-our($VERSION);
 use Carp;
 use Symbol;
 
-$VERSION = "1.15";
+our $VERSION = "1.39";
 
 sub new {
     my $type = shift;
index a02dc3d..3e949b7 100644 (file)
@@ -10,25 +10,24 @@ package IO::Poll;
 use strict;
 use IO::Handle;
 use Exporter ();
-our(@ISA, @EXPORT_OK, @EXPORT, $VERSION);
 
-@ISA = qw(Exporter);
-$VERSION = "0.10";
+our @ISA = qw(Exporter);
+our $VERSION = "1.39";
 
-@EXPORT = qw( POLLIN
+our @EXPORT = qw( POLLIN
              POLLOUT
              POLLERR
              POLLHUP
              POLLNVAL
            );
 
-@EXPORT_OK = qw(
- POLLPRI   
+our @EXPORT_OK = qw(
+ POLLPRI
  POLLRDNORM
  POLLWRNORM
  POLLRDBAND
  POLLWRBAND
- POLLNORM  
+ POLLNORM
               );
 
 # [0] maps fd's to requested masks
index db1effd..27ed663 100644 (file)
@@ -94,21 +94,19 @@ Derived from FileHandle.pm by Graham Barr E<lt>gbarr@pobox.comE<gt>
 
 =cut
 
-use 5.006_001;
+use 5.008_001;
 use Carp;
 use strict;
-our($VERSION, @EXPORT, @ISA);
 use IO::Handle ();
 # XXX we can't get these from IO::Handle or we'll get prototype
 # mismatch warnings on C<use POSIX; use IO::File;> :-(
 use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END);
 require Exporter;
 
-@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
-@ISA = qw(Exporter);
+our @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
+our @ISA = qw(Exporter);
 
-$VERSION = "1.10";
-$VERSION = eval $VERSION;
+our $VERSION = "1.39";
 
 sub seek {
     @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';
index 4d96641..6176f8b 100644 (file)
@@ -8,12 +8,11 @@ package IO::Select;
 
 use     strict;
 use warnings::register;
-use     vars qw($VERSION @ISA);
 require Exporter;
 
-$VERSION = "1.23";
+our $VERSION = "1.39";
 
-@ISA = qw(Exporter); # This is only so we can do version checking
+our @ISA = qw(Exporter); # This is only so we can do version checking
 
 sub VEC_BITS () {0}
 sub FD_COUNT () {1}
index c78aeec..bea16ec 100644 (file)
@@ -7,13 +7,12 @@
 
 package IO::Socket;
 
-require 5.006;
+use 5.008_001;
 
 use IO::Handle;
 use Socket 1.3;
 use Carp;
 use strict;
-our(@ISA, $VERSION, @EXPORT_OK);
 use Exporter;
 use Errno;
 
@@ -22,11 +21,11 @@ use Errno;
 require IO::Socket::INET;
 require IO::Socket::UNIX if ($^O ne 'epoc' && $^O ne 'symbian');
 
-@ISA = qw(IO::Handle);
+our @ISA = qw(IO::Handle);
 
-$VERSION = "1.38";
+our $VERSION = "1.39";
 
-@EXPORT_OK = qw(sockatmark);
+our @EXPORT_OK = qw(sockatmark);
 
 sub import {
     my $pkg = shift;
index 7a16947..084cb1c 100644 (file)
@@ -7,15 +7,14 @@
 package IO::Socket::INET;
 
 use strict;
-our(@ISA, $VERSION);
 use IO::Socket;
 use Socket;
 use Carp;
 use Exporter;
 use Errno;
 
-@ISA = qw(IO::Socket);
-$VERSION = "1.35";
+our @ISA = qw(IO::Socket);
+our $VERSION = "1.39";
 
 my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
 
index 30b8f74..a46dd59 100644 (file)
@@ -7,13 +7,11 @@
 package IO::Socket::UNIX;
 
 use strict;
-our(@ISA, $VERSION);
 use IO::Socket;
 use Carp;
 
-@ISA = qw(IO::Socket);
-$VERSION = "1.26";
-$VERSION = eval $VERSION;
+our @ISA = qw(IO::Socket);
+our $VERSION = "1.39";
 
 IO::Socket::UNIX->register_domain( AF_UNIX );