diff options
author | Karl Williamson <khw@cpan.org> | 2022-01-06 17:37:16 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-04-19 21:25:16 -0600 |
commit | 058610522241b92628ff971c10cc42e5d5362da9 (patch) | |
tree | e38542443cbd32ca0269dcb632390c9dcc3d03f3 | |
parent | 452a89a5e16a63b58183b09d724c3da332252f0a (diff) | |
download | perl-058610522241b92628ff971c10cc42e5d5362da9.tar.gz |
libnet: os390 isn't necessarily EBCDIC
It turns out that z/OS (the new name for os390) can run in ASCII mode.
Therefore the test for EBCDIC must not be based on the OS itself, but
the character set in use.
-rw-r--r-- | cpan/libnet/lib/Net/Cmd.pm | 8 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/Config.pm | 4 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/Domain.pm | 4 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/FTP.pm | 6 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/FTP/A.pm | 2 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/FTP/E.pm | 2 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/FTP/I.pm | 2 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/FTP/L.pm | 2 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/FTP/dataconn.pm | 4 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/NNTP.pm | 4 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/Netrc.pm | 4 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/POP3.pm | 4 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/SMTP.pm | 4 | ||||
-rw-r--r-- | cpan/libnet/lib/Net/Time.pm | 4 |
14 files changed, 27 insertions, 27 deletions
diff --git a/cpan/libnet/lib/Net/Cmd.pm b/cpan/libnet/lib/Net/Cmd.pm index 41df8a264a..b8dc728937 100644 --- a/cpan/libnet/lib/Net/Cmd.pm +++ b/cpan/libnet/lib/Net/Cmd.pm @@ -19,14 +19,14 @@ use Symbol 'gensym'; use Errno 'EINTR'; BEGIN { - if ($^O eq 'os390') { + if (ord "A" == 193) { require Convert::EBCDIC; # Convert::EBCDIC->import; } } -our $VERSION = "3.13"; +our $VERSION = "3.14"; our @ISA = qw(Exporter); our @EXPORT = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING); @@ -41,7 +41,7 @@ use constant DEF_REPLY_CODE => 421; my %debug = (); -my $tr = $^O eq 'os390' ? Convert::EBCDIC->new() : undef; +my $tr = ord "A" == 193 ? Convert::EBCDIC->new() : undef; sub toebcdic { my $cmd = shift; @@ -897,7 +897,7 @@ License or the Artistic License, as specified in the F<LICENCE> file. =head1 VERSION -Version 3.13 +Version 3.14 =head1 DATE diff --git a/cpan/libnet/lib/Net/Config.pm b/cpan/libnet/lib/Net/Config.pm index 2f8417f01a..b9eb82792b 100644 --- a/cpan/libnet/lib/Net/Config.pm +++ b/cpan/libnet/lib/Net/Config.pm @@ -18,7 +18,7 @@ use Socket qw(inet_aton inet_ntoa); our @EXPORT = qw(%NetConfig); our @ISA = qw(Net::LocalCfg Exporter); -our $VERSION = "3.13"; +our $VERSION = "3.14"; our($CONFIGURE, $LIBNET_CFG); @@ -368,7 +368,7 @@ License or the Artistic License, as specified in the F<LICENCE> file. =head1 VERSION -Version 3.13 +Version 3.14 =head1 DATE diff --git a/cpan/libnet/lib/Net/Domain.pm b/cpan/libnet/lib/Net/Domain.pm index d69ac5ba80..7c017f2435 100644 --- a/cpan/libnet/lib/Net/Domain.pm +++ b/cpan/libnet/lib/Net/Domain.pm @@ -19,7 +19,7 @@ use Net::Config; our @ISA = qw(Exporter); our @EXPORT_OK = qw(hostname hostdomain hostfqdn domainname); -our $VERSION = "3.13"; +our $VERSION = "3.14"; my ($host, $domain, $fqdn) = (undef, undef, undef); @@ -395,7 +395,7 @@ License or the Artistic License, as specified in the F<LICENCE> file. =head1 VERSION -Version 3.13 +Version 3.14 =head1 DATE diff --git a/cpan/libnet/lib/Net/FTP.pm b/cpan/libnet/lib/Net/FTP.pm index 37836bf657..b6b220df1f 100644 --- a/cpan/libnet/lib/Net/FTP.pm +++ b/cpan/libnet/lib/Net/FTP.pm @@ -23,7 +23,7 @@ use Net::Config; use Socket; use Time::Local; -our $VERSION = '3.13'; +our $VERSION = '3.14'; our $IOCLASS; my $family_key; @@ -66,7 +66,7 @@ use constant TELNET_IAC => 255; use constant TELNET_IP => 244; use constant TELNET_DM => 242; -use constant EBCDIC => $^O eq 'os390'; +use constant EBCDIC => ord 'A' == 193; sub new { my $pkg = shift; @@ -2044,7 +2044,7 @@ License or the Artistic License, as specified in the F<LICENCE> file. =head1 VERSION -Version 3.13 +Version 3.14 =head1 DATE diff --git a/cpan/libnet/lib/Net/FTP/A.pm b/cpan/libnet/lib/Net/FTP/A.pm index 53446386c1..1ea4831023 100644 --- a/cpan/libnet/lib/Net/FTP/A.pm +++ b/cpan/libnet/lib/Net/FTP/A.pm @@ -13,7 +13,7 @@ use Carp; use Net::FTP::dataconn; our @ISA = qw(Net::FTP::dataconn); -our $VERSION = "3.13"; +our $VERSION = "3.14"; our $buf; diff --git a/cpan/libnet/lib/Net/FTP/E.pm b/cpan/libnet/lib/Net/FTP/E.pm index 9b1370778a..7b8c2ea8b1 100644 --- a/cpan/libnet/lib/Net/FTP/E.pm +++ b/cpan/libnet/lib/Net/FTP/E.pm @@ -8,6 +8,6 @@ use warnings; use Net::FTP::I; our @ISA = qw(Net::FTP::I); -our $VERSION = "3.13"; +our $VERSION = "3.14"; 1; diff --git a/cpan/libnet/lib/Net/FTP/I.pm b/cpan/libnet/lib/Net/FTP/I.pm index 726cba197c..afcc51f71e 100644 --- a/cpan/libnet/lib/Net/FTP/I.pm +++ b/cpan/libnet/lib/Net/FTP/I.pm @@ -13,7 +13,7 @@ use Carp; use Net::FTP::dataconn; our @ISA = qw(Net::FTP::dataconn); -our $VERSION = "3.13"; +our $VERSION = "3.14"; our $buf; diff --git a/cpan/libnet/lib/Net/FTP/L.pm b/cpan/libnet/lib/Net/FTP/L.pm index ac5e27ebad..9dfe4912c9 100644 --- a/cpan/libnet/lib/Net/FTP/L.pm +++ b/cpan/libnet/lib/Net/FTP/L.pm @@ -8,6 +8,6 @@ use warnings; use Net::FTP::I; our @ISA = qw(Net::FTP::I); -our $VERSION = "3.13"; +our $VERSION = "3.14"; 1; diff --git a/cpan/libnet/lib/Net/FTP/dataconn.pm b/cpan/libnet/lib/Net/FTP/dataconn.pm index 5a257e677f..979be7c9c2 100644 --- a/cpan/libnet/lib/Net/FTP/dataconn.pm +++ b/cpan/libnet/lib/Net/FTP/dataconn.pm @@ -13,7 +13,7 @@ use Carp; use Errno; use Net::Cmd; -our $VERSION = '3.13'; +our $VERSION = '3.14'; $Net::FTP::IOCLASS or die "please load Net::FTP before Net::FTP::dataconn"; our @ISA = $Net::FTP::IOCLASS; @@ -224,7 +224,7 @@ License or the Artistic License, as specified in the F<LICENCE> file. =head1 VERSION -Version 3.13 +Version 3.14 =head1 DATE diff --git a/cpan/libnet/lib/Net/NNTP.pm b/cpan/libnet/lib/Net/NNTP.pm index 3187f51961..bbdc8843d2 100644 --- a/cpan/libnet/lib/Net/NNTP.pm +++ b/cpan/libnet/lib/Net/NNTP.pm @@ -19,7 +19,7 @@ use Net::Cmd; use Net::Config; use Time::Local; -our $VERSION = "3.13"; +our $VERSION = "3.14"; # Code for detecting if we can use SSL my $ssl_class = eval { @@ -1308,7 +1308,7 @@ License or the Artistic License, as specified in the F<LICENCE> file. =head1 VERSION -Version 3.13 +Version 3.14 =head1 DATE diff --git a/cpan/libnet/lib/Net/Netrc.pm b/cpan/libnet/lib/Net/Netrc.pm index 50688eefd6..3dec11e733 100644 --- a/cpan/libnet/lib/Net/Netrc.pm +++ b/cpan/libnet/lib/Net/Netrc.pm @@ -16,7 +16,7 @@ use warnings; use Carp; use FileHandle; -our $VERSION = "3.13"; +our $VERSION = "3.14"; our $TESTING; @@ -353,7 +353,7 @@ License or the Artistic License, as specified in the F<LICENCE> file. =head1 VERSION -Version 3.13 +Version 3.14 =head1 DATE diff --git a/cpan/libnet/lib/Net/POP3.pm b/cpan/libnet/lib/Net/POP3.pm index 55f7be1342..a4ed8ebbe7 100644 --- a/cpan/libnet/lib/Net/POP3.pm +++ b/cpan/libnet/lib/Net/POP3.pm @@ -18,7 +18,7 @@ use IO::Socket; use Net::Cmd; use Net::Config; -our $VERSION = "3.13"; +our $VERSION = "3.14"; # Code for detecting if we can use SSL my $ssl_class = eval { @@ -869,7 +869,7 @@ License or the Artistic License, as specified in the F<LICENCE> file. =head1 VERSION -Version 3.13 +Version 3.14 =head1 DATE diff --git a/cpan/libnet/lib/Net/SMTP.pm b/cpan/libnet/lib/Net/SMTP.pm index 354ed8e38f..c04a362d19 100644 --- a/cpan/libnet/lib/Net/SMTP.pm +++ b/cpan/libnet/lib/Net/SMTP.pm @@ -19,7 +19,7 @@ use Net::Cmd; use Net::Config; use Socket; -our $VERSION = "3.13"; +our $VERSION = "3.14"; # Code for detecting if we can use SSL my $ssl_class = eval { @@ -1052,7 +1052,7 @@ License or the Artistic License, as specified in the F<LICENCE> file. =head1 VERSION -Version 3.13 +Version 3.14 =head1 DATE diff --git a/cpan/libnet/lib/Net/Time.pm b/cpan/libnet/lib/Net/Time.pm index 7f0a724cd3..7906c1ad22 100644 --- a/cpan/libnet/lib/Net/Time.pm +++ b/cpan/libnet/lib/Net/Time.pm @@ -22,7 +22,7 @@ use Net::Config; our @ISA = qw(Exporter); our @EXPORT_OK = qw(inet_time inet_daytime); -our $VERSION = "3.13"; +our $VERSION = "3.14"; our $TIMEOUT = 120; @@ -190,7 +190,7 @@ License or the Artistic License, as specified in the F<LICENCE> file. =head1 VERSION -Version 3.13 +Version 3.14 =head1 DATE |