Fix for undefined warning in IO

Fixes #18238 - Bumped version to 1.48 for release to CPAN
Perl · Sep 1, 2021 · cab7765 · cab7765
1 parent 3c2792c
commit cab7765
Show file tree

Hide file tree

Showing 12 changed files with 23 additions and 12 deletions.
diff --git a/dist/IO/ChangeLog b/dist/IO/ChangeLog
@@ -1,3 +1,14 @@
+IO 1.48
+   * Fix for undefined warning in GH #18238
+
+IO 1.47
+   * Implement sync() for win32
+   * Add missing quotes to IO::Socket::INET example
+
+IO 1.46
+   * style: Detabify indentation of the C code maintained by the core.
+   * Update search.cpan.org URLs
+
 IO 1.45
   * Put IO::Socket constructor error messages in $IO::Socket::errstr as well
     as $@, to encourage better practices

diff --git a/dist/IO/IO.pm b/dist/IO/IO.pm
@@ -7,7 +7,7 @@ use Carp;
 use strict;
 use warnings;
 
-our $VERSION = "1.47";
+our $VERSION = "1.48";
 XSLoader::load 'IO', $VERSION;
 
 sub import {

diff --git a/dist/IO/lib/IO/Dir.pm b/dist/IO/lib/IO/Dir.pm
@@ -18,7 +18,7 @@ use File::stat;
 use File::Spec;
 
 our @ISA = qw(Tie::Hash Exporter);
-our $VERSION = "1.47";
+our $VERSION = "1.48";
 
 our @EXPORT_OK = qw(DIR_UNLINK);
 

diff --git a/dist/IO/lib/IO/File.pm b/dist/IO/lib/IO/File.pm
@@ -135,7 +135,7 @@ require Exporter;
 
 our @ISA = qw(IO::Handle IO::Seekable Exporter);
 
-our $VERSION = "1.47";
+our $VERSION = "1.48";
 
 our @EXPORT = @IO::Seekable::EXPORT;
 

diff --git a/dist/IO/lib/IO/Handle.pm b/dist/IO/lib/IO/Handle.pm
@@ -270,7 +270,7 @@ use IO ();	# Load the XS module
 require Exporter;
 our @ISA = qw(Exporter);
 
-our $VERSION = "1.47";
+our $VERSION = "1.48";
 
 our @EXPORT_OK = qw(
     autoflush

diff --git a/dist/IO/lib/IO/Pipe.pm b/dist/IO/lib/IO/Pipe.pm
@@ -13,7 +13,7 @@ use strict;
 use Carp;
 use Symbol;
 
-our $VERSION = "1.47";
+our $VERSION = "1.48";
 
 sub new {
     my $type = shift;

diff --git a/dist/IO/lib/IO/Poll.pm b/dist/IO/lib/IO/Poll.pm
@@ -12,7 +12,7 @@ use IO::Handle;
 use Exporter ();
 
 our @ISA = qw(Exporter);
-our $VERSION = "1.47";
+our $VERSION = "1.48";
 
 our @EXPORT = qw( POLLIN
 	      POLLOUT

diff --git a/dist/IO/lib/IO/Seekable.pm b/dist/IO/lib/IO/Seekable.pm
@@ -106,7 +106,7 @@ require Exporter;
 our @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
 our @ISA = qw(Exporter);
 
-our $VERSION = "1.47";
+our $VERSION = "1.48";
 
 sub seek {
     @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';

diff --git a/dist/IO/lib/IO/Select.pm b/dist/IO/lib/IO/Select.pm
@@ -10,7 +10,7 @@ use     strict;
 use warnings::register;
 require Exporter;
 
-our $VERSION = "1.47";
+our $VERSION = "1.48";
 
 our @ISA = qw(Exporter); # This is only so we can do version checking
 
@@ -68,7 +68,7 @@ sub _fileno
   # previously registered and has since been closed. ->remove still wants to
   # know what fileno it had
   foreach my $i ( FIRST_FD .. $#$self ) {
-   return $i - FIRST_FD if $self->[$i] == $f;
+   return $i - FIRST_FD if defined $self->[$i] && $self->[$i] == $f;
   }
   return undef;
  }

diff --git a/dist/IO/lib/IO/Socket.pm b/dist/IO/lib/IO/Socket.pm
@@ -23,7 +23,7 @@ require IO::Socket::UNIX if ($^O ne 'epoc' && $^O ne 'symbian');
 
 our @ISA = qw(IO::Handle);
 
-our $VERSION = "1.47";
+our $VERSION = "1.48";
 
 our @EXPORT_OK = qw(sockatmark);
 

diff --git a/dist/IO/lib/IO/Socket/INET.pm b/dist/IO/lib/IO/Socket/INET.pm
@@ -14,7 +14,7 @@ use Exporter;
 use Errno;
 
 our @ISA = qw(IO::Socket);
-our $VERSION = "1.47";
+our $VERSION = "1.48";
 
 my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
 

diff --git a/dist/IO/lib/IO/Socket/UNIX.pm b/dist/IO/lib/IO/Socket/UNIX.pm
@@ -11,7 +11,7 @@ use IO::Socket;
 use Carp;
 
 our @ISA = qw(IO::Socket);
-our $VERSION = "1.47";
+our $VERSION = "1.48";
 
 IO::Socket::UNIX->register_domain( AF_UNIX );