summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Net/Cmd.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Net/Cmd.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Net/Cmd.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Net/Cmd.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Net/Cmd.pm
index 41df8a264a..f10df74354 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Net/Cmd.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Net/Cmd.pm
@@ -1,7 +1,7 @@
# Net::Cmd.pm
#
# Copyright (C) 1995-2006 Graham Barr. All rights reserved.
-# Copyright (C) 2013-2016, 2020 Steve Hay. All rights reserved.
+# Copyright (C) 2013-2016, 2020, 2022 Steve Hay. All rights reserved.
# This module is free software; you can redistribute it and/or modify it under
# the same terms as Perl itself, i.e. under the terms of either the GNU General
# Public License or the Artistic License, as specified in the F<LICENCE> file.
@@ -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.15";
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;
@@ -887,7 +887,7 @@ libnet as of version 1.22_02.
Copyright (C) 1995-2006 Graham Barr. All rights reserved.
-Copyright (C) 2013-2016, 2020 Steve Hay. All rights reserved.
+Copyright (C) 2013-2016, 2020, 2022 Steve Hay. All rights reserved.
=head1 LICENCE
@@ -897,11 +897,11 @@ License or the Artistic License, as specified in the F<LICENCE> file.
=head1 VERSION
-Version 3.13
+Version 3.15
=head1 DATE
-23 Dec 2020
+20 March 2023
=head1 HISTORY