/[pkgs]/devel/perl/perl-5.10.0-pos.patch
ViewVC logotype

Contents of /devel/perl/perl-5.10.0-pos.patch

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.3 - (show annotations) (download) (as text)
Mon Jul 21 10:50:15 2008 UTC (16 months ago) by mmaslano
Branch: MAIN
CVS Tags: F-12-split, perl-5_10_0-63_fc11, perl-5_10_0-61_fc11, perl-5_10_0-80_fc12, perl-5_10_0-81_fc12, perl-5_10_0-84_fc13, perl-5_10_0-82_fc13, perl-5_10_0-51_fc11, perl-5_10_0-77_fc12, perl-5_10_0-83_fc13, perl-5_10_0-45_fc10, perl-5_10_0-71_fc12, perl-5_10_0-57_fc11, perl-5_10_0-41_fc10, perl-5_10_0-75_fc12, perl-5_10_0-53_fc11, perl-5_10_0-73_fc12, perl-5_10_0-68_fc11, perl-5_10_0-67_fc11, perl-5_10_0-64_fc11, perl-5_10_0-72_fc12, F-10-split, perl-5_10_0-54_fc11, perl-5_10_0-46_fc10, F-11-split, perl-5_10_0-49_fc10, perl-5_10_0-43_fc10, perl-5_10_0-38_fc10, perl-5_10_0-62_fc11, perl-5_10_0-48_fc10, perl-5_10_0-69_fc12, perl-5_10_0-79_fc12, perl-5_10_0-78_fc12, perl-5_10_0-56_fc11, perl-5_10_0-70_fc12, perl-5_10_0-44_fc10, perl-5_10_0-52_fc11, perl-5_10_0-74_fc12, perl-5_10_0-40_fc10, perl-5_10_0-66_fc11, perl-5_10_0-47_fc10, perl-5_10_0-37_fc10, perl-5_10_0-59_fc11, perl-5_10_0-65_fc11, perl-5_10_0-39_fc10, perl-5_10_0-58_fc11, perl-5_10_0-60_fc11, perl-5_10_0-76_fc12, HEAD
Changes since 1.2: +23 -24 lines
File MIME type: text/x-patch 
* Mon Jul 21 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-37
- 455933 update to CGI-3.38
- fix fuzz problems (patch6)
- 217833 pos() function handle unicode characters correct
1 diff -up perl-5.10.0/t/op/subst.t.pos perl-5.10.0/t/op/subst.t
2 --- perl-5.10.0/t/op/subst.t.pos 2007-12-18 11:47:08.000000000 +0100
3 +++ perl-5.10.0/t/op/subst.t 2008-07-21 11:01:01.000000000 +0200
4 @@ -7,7 +7,7 @@ BEGIN {
5 }
6
7 require './test.pl';
8 -plan( tests => 136 );
9 +plan( tests => 139 );
10
11 $x = 'foo';
12 $_ = "x";
13 @@ -583,3 +583,11 @@ is($name, "cis", q[#22351 bug with 'e' s
14 is($want,$_,"RT#17542");
15 }
16
17 +{
18 + my @tests = ('ABC', "\xA3\xA4\xA5", "\x{410}\x{411}\x{412}");
19 + foreach (@tests) {
20 + my $id = ord $_;
21 + s/./pos/ge;
22 + is($_, "012", "RT#52104: $id");
23 + }
24 +}
25 diff -up perl-5.10.0/pp_ctl.c.pos perl-5.10.0/pp_ctl.c
26 --- perl-5.10.0/pp_ctl.c.pos 2007-12-18 11:47:08.000000000 +0100
27 +++ perl-5.10.0/pp_ctl.c 2008-07-21 12:31:50.000000000 +0200
28 @@ -285,7 +285,6 @@ PP(pp_substcont)
29 { /* Update the pos() information. */
30 SV * const sv = cx->sb_targ;
31 MAGIC *mg;
32 - I32 i;
33 SvUPGRADE(sv, SVt_PVMG);
34 if (!(mg = mg_find(sv, PERL_MAGIC_regex_global))) {
35 #ifdef PERL_OLD_COPY_ON_WRITE
36 @@ -295,10 +294,7 @@ PP(pp_substcont)
37 mg = sv_magicext(sv, NULL, PERL_MAGIC_regex_global, &PL_vtbl_mglob,
38 NULL, 0);
39 }
40 - i = m - orig;
41 - if (DO_UTF8(sv))
42 - sv_pos_b2u(sv, &i);
43 - mg->mg_len = i;
44 + mg->mg_len = m - orig;
45 }
46 if (old != rx)
47 (void)ReREFCNT_inc(rx);
admin@fedoraproject.org
 ViewVC Help
Powered by ViewVC 1.1.2