This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tweak sv_pos_b2u_flags check in pp_index
authorJames Raspass <jraspass@gmail.com>
Sat, 6 Dec 2014 22:51:57 +0000 (22:51 +0000)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 7 Dec 2014 03:42:32 +0000 (19:42 -0800)
commit15c41403d2d0c2e464b1c4bf8497d45d28917282
tree20373fbf1e14fe9dc029f5aeb7b548b6d61780b4
parentb4db5868141d6a659beb640efc92eabae9cd71c0
Tweak sv_pos_b2u_flags check in pp_index

There's no need to run sv_pos_b2u_flags if the retval is one as
one byte can only be one character, therefore change the test to
"> 1". This makes index on unicode strings that match at 1 slightly
faster.
pp.c
t/op/index.t
t/perf/benchmarks