diff options
author | Karl Williamson <khw@cpan.org> | 2016-03-17 16:45:47 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2016-03-17 21:31:02 -0600 |
commit | 0a66072154699e9552112abf7c5d4d9b2a5dad43 (patch) | |
tree | c739b5448ecf3857973318720c907653c4a461b9 /dist/Carp | |
parent | 130cad9316a3347fa979c221d551dbe5e4b13813 (diff) | |
download | perl-0a66072154699e9552112abf7c5d4d9b2a5dad43.tar.gz |
Carp: Fix .t failure to compile in v5.6
This doesn't guarantee the tests pass in that release; just that it will
actually get to testing.
Diffstat (limited to 'dist/Carp')
-rw-r--r-- | dist/Carp/Changes | 3 | ||||
-rw-r--r-- | dist/Carp/t/arg_string.t | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/dist/Carp/Changes b/dist/Carp/Changes index b90b39507e..dca6a522cf 100644 --- a/dist/Carp/Changes +++ b/dist/Carp/Changes @@ -1,5 +1,6 @@ -version 1.39_01; 2016-03-10 +version 1.40; 2016-03-10 + * Get arg_string.t to compile in perl v5.6 * Add information for how to contribute to Carp. version 1.39; 2016-03-06 diff --git a/dist/Carp/t/arg_string.t b/dist/Carp/t/arg_string.t index 42b43b1e11..dbd2e6e7f8 100644 --- a/dist/Carp/t/arg_string.t +++ b/dist/Carp/t/arg_string.t @@ -15,7 +15,7 @@ my $e9 = sprintf "%02x", (($] ge 5.007_003) : ((ord("A") == 193) ? 0x51 : 0xE9)); -my $chr_e9 = chr utf8::unicode_to_native(0xe9); +my $chr_e9 = chr eval "0x$e9"; my $nl_as_hex = sprintf "%x", ord("\n"); like lm(3), qr/main::lm\(3\)/; |