"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "cpan/Scalar-List-Utils/t/exotic_names.t" between
perl-5.32.0-RC0.tar.xz and perl-5.32.0-RC1.tar.xz

About: Perl (Practical Extraction and Report Language) is a high-level, general-purpose, interpreted, dynamic programming language. Release candidate.

exotic_names.t  (perl-5.32.0-RC0.tar.xz):exotic_names.t  (perl-5.32.0-RC1.tar.xz)
skipping to change at line 16 skipping to change at line 16
BEGIN { $^P |= 0x210 } BEGIN { $^P |= 0x210 }
# This is a mess. The stash can supposedly handle Unicode but the behavior # This is a mess. The stash can supposedly handle Unicode but the behavior
# is literally undefined before 5.16 (with crashes beyond the basic plane), # is literally undefined before 5.16 (with crashes beyond the basic plane),
# and remains unclear past 5.16 with evalbytes and feature unicode_eval # and remains unclear past 5.16 with evalbytes and feature unicode_eval
# In any case - Sub::Name needs to *somehow* work with this, so we will do # In any case - Sub::Name needs to *somehow* work with this, so we will do
# a heuristic with ambiguous eval and looking for octets in the stash # a heuristic with ambiguous eval and looking for octets in the stash
use if $] >= 5.016, feature => 'unicode_eval'; use if $] >= 5.016, feature => 'unicode_eval';
if ($] >= 5.008) { if ($] >= 5.008) {
my $builder = Test::More->builder; my $builder = Test::More->builder;
binmode $builder->output, ":encoding(utf8)"; binmode $builder->output, ":encoding(utf8)";
binmode $builder->failure_output, ":encoding(utf8)"; binmode $builder->failure_output, ":encoding(utf8)";
binmode $builder->todo_output, ":encoding(utf8)"; binmode $builder->todo_output, ":encoding(utf8)";
} }
sub compile_named_sub { sub compile_named_sub {
my ( $fullname, $body ) = @_; my ( $fullname, $body ) = @_;
my $sub = eval "sub $fullname { $body }" . '\\&{$fullname}'; my $sub = eval "sub $fullname { $body }" . '\\&{$fullname}';
return $sub if $sub; return $sub if $sub;
my $e = $@; my $e = $@;
require Carp; require Carp;
Carp::croak $e; Carp::croak $e;
} }
 End of changes. 1 change blocks. 
4 lines changed or deleted 4 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)