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 /cpan/libnet | |
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.
Diffstat (limited to 'cpan/libnet')
-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 |