summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Encode/KR/2022_KR.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-03-10 21:56:14 +0000
committerKarl Berry <karl@freefriends.org>2019-03-10 21:56:14 +0000
commite0a2a718e89f9700d627f1e6a8eea8f21d2fbeb8 (patch)
tree39972f65008b0d70f306a5f976494d29411bc41e /Master/tlpkg/tlperl/lib/Encode/KR/2022_KR.pm
parentb206fdc77d81ed1600949062f08de5690a4bf66f (diff)
tl19 perl 5.28.1 for Windows, from Siep
git-svn-id: svn://tug.org/texlive/trunk@50322 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Encode/KR/2022_KR.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Encode/KR/2022_KR.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/Encode/KR/2022_KR.pm b/Master/tlpkg/tlperl/lib/Encode/KR/2022_KR.pm
index 44373e5d589..122326403b2 100644
--- a/Master/tlpkg/tlperl/lib/Encode/KR/2022_KR.pm
+++ b/Master/tlpkg/tlperl/lib/Encode/KR/2022_KR.pm
@@ -1,7 +1,7 @@
package Encode::KR::2022_KR;
use strict;
use warnings;
-our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
use Encode qw(:fallbacks);
@@ -16,6 +16,7 @@ sub perlio_ok {
sub decode {
my ( $obj, $str, $chk ) = @_;
+ return undef unless defined $str;
my $res = $str;
my $residue = iso_euc( \$res );
@@ -26,6 +27,7 @@ sub decode {
sub encode {
my ( $obj, $utf8, $chk ) = @_;
+ return undef unless defined $utf8;
# empty the input string in the stack so perlio is ok
$_[1] = '' if $chk;