diff options
Diffstat (limited to 'ext/Encode/Unicode/Unicode.pm')
| -rw-r--r-- | ext/Encode/Unicode/Unicode.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Encode/Unicode/Unicode.pm b/ext/Encode/Unicode/Unicode.pm index fa508ebb7b..b09e126d07 100644 --- a/ext/Encode/Unicode/Unicode.pm +++ b/ext/Encode/Unicode/Unicode.pm @@ -60,7 +60,7 @@ sub set_transcoder{ *encode = \&encode_classic; }else{ require Carp; - Carp::croak __PACKAGE__, "::set_transcoder(modern|classic|xs)"; + Carp::croak(__PACKAGE__, "::set_transcoder(modern|classic|xs)"); } } @@ -258,7 +258,7 @@ sub poisoned2death{ my $msg = shift; my $pair = join(", ", map {sprintf "\\x%x", $_} @_); require Carp; - Carp::croak $obj->name, ":", $msg, "<$pair>.", caller; + Carp::croak($obj->name, ":", $msg, "<$pair>.", caller); } 1; |