Hello community,

here is the log from the commit of package perl-Devel-PatchPerl for 
openSUSE:Factory checked in at 2013-07-16 17:02:06
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Devel-PatchPerl (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Devel-PatchPerl.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Devel-PatchPerl"

Changes:
--------
--- 
/work/SRC/openSUSE:Factory/perl-Devel-PatchPerl/perl-Devel-PatchPerl.changes    
    2013-06-07 10:05:54.000000000 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-Devel-PatchPerl.new/perl-Devel-PatchPerl.changes
   2013-07-16 17:02:07.000000000 +0200
@@ -1,0 +2,8 @@
+Tue Jul 16 12:10:50 UTC 2013 - [email protected]
+
+- updated to 0.96
+    Fix patch applying for v5.18.0                                             
                                                                                
                                                                             
+    Fixes a regmatch pointer 32-bit wraparound regression in v5.18.0 
+    Update Midnight BSD hints for 0.4-RELEASE 
+
+-------------------------------------------------------------------

Old:
----
  Devel-PatchPerl-0.90.tar.gz

New:
----
  Devel-PatchPerl-0.96.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Devel-PatchPerl.spec ++++++
--- /var/tmp/diff_new_pack.NT2I5r/_old  2013-07-16 17:02:09.000000000 +0200
+++ /var/tmp/diff_new_pack.NT2I5r/_new  2013-07-16 17:02:09.000000000 +0200
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Devel-PatchPerl
-Version:        0.90
+Version:        0.96
 Release:        0
 %define cpan_name Devel-PatchPerl
 Summary:        Patch perl source a la Devel::PPPort's buildperl.pl
@@ -62,6 +62,6 @@
 
 %files -f %{name}.files
 %defattr(-,root,root,755)
-%doc Changes LICENSE README tools
+%doc Changes LICENSE README
 
 %changelog

++++++ Devel-PatchPerl-0.90.tar.gz -> Devel-PatchPerl-0.96.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-0.90/Changes 
new/Devel-PatchPerl-0.96/Changes
--- old/Devel-PatchPerl-0.90/Changes    2013-05-19 00:58:50.000000000 +0200
+++ new/Devel-PatchPerl-0.96/Changes    2013-07-08 08:55:06.000000000 +0200
@@ -1,8 +1,40 @@
 ==================================================
-Changes from 2008-05-19 00:00:00 +0000 to present.
+Changes from 2008-07-09 00:00:00 +0000 to present.
 ==================================================
 
 -----------------------------------------
+version 0.96 at 2013-07-08 06:53:34 +0000
+-----------------------------------------
+
+  Change: a78109ca3e2c9338bf98185c2014ba2be4a04942
+  Author: Chris 'BinGOs' Williams <[email protected]>
+  Date : 2013-07-08 07:53:34 +0000
+
+    Fix patch applying for v5.18.0 
+
+-----------------------------------------
+version 0.94 at 2013-07-07 13:45:00 +0000
+-----------------------------------------
+
+  Change: c5257739abd2cde575036ba9b105977679a30273
+  Author: Chris 'BinGOs' Williams <[email protected]>
+  Date : 2013-07-07 14:45:00 +0000
+
+    Added commit 4149c7198d9b78d861df289cce40dd865cab57e7
+
+    Fixes a regmatch pointer 32-bit wraparound regression in v5.18.0 
+
+-----------------------------------------
+version 0.92 at 2013-07-07 13:29:48 +0000
+-----------------------------------------
+
+  Change: 8881838495367f05f599939d4e1eac86106785fa
+  Author: Chris 'BinGOs' Williams <[email protected]>
+  Date : 2013-07-07 14:29:48 +0000
+
+    Update Midnight BSD hints for 0.4-RELEASE 
+
+-----------------------------------------
 version 0.90 at 2013-05-18 22:58:06 +0000
 -----------------------------------------
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-0.90/META.json 
new/Devel-PatchPerl-0.96/META.json
--- old/Devel-PatchPerl-0.90/META.json  2013-05-19 00:58:50.000000000 +0200
+++ new/Devel-PatchPerl-0.96/META.json  2013-07-08 08:55:06.000000000 +0200
@@ -4,7 +4,7 @@
       "Chris Williams <[email protected]>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Dist::Zilla version 4.300034, CPAN::Meta::Converter 
version 2.130880",
+   "generated_by" : "Dist::Zilla version 4.300035, CPAN::Meta::Converter 
version 2.131560",
    "license" : [
       "perl_5"
    ],
@@ -45,6 +45,6 @@
          "web" : "https://github.com/bingos/devel-patchperl";
       }
    },
-   "version" : "0.90"
+   "version" : "0.96"
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-0.90/META.yml 
new/Devel-PatchPerl-0.96/META.yml
--- old/Devel-PatchPerl-0.90/META.yml   2013-05-19 00:58:50.000000000 +0200
+++ new/Devel-PatchPerl-0.96/META.yml   2013-07-08 08:55:06.000000000 +0200
@@ -6,7 +6,7 @@
 configure_requires:
   ExtUtils::MakeMaker: 6.30
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.300034, CPAN::Meta::Converter version 
2.130880'
+generated_by: 'Dist::Zilla version 4.300035, CPAN::Meta::Converter version 
2.131560'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -21,4 +21,4 @@
 resources:
   homepage: https://github.com/bingos/devel-patchperl
   repository: https://github.com/bingos/devel-patchperl.git
-version: 0.90
+version: 0.96
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-0.90/Makefile.PL 
new/Devel-PatchPerl-0.96/Makefile.PL
--- old/Devel-PatchPerl-0.90/Makefile.PL        2013-05-19 00:58:50.000000000 
+0200
+++ new/Devel-PatchPerl-0.96/Makefile.PL        2013-07-08 08:55:06.000000000 
+0200
@@ -28,7 +28,7 @@
     "Module::Pluggable" => 0
   },
   "TEST_REQUIRES" => {},
-  "VERSION" => "0.90",
+  "VERSION" => "0.96",
   "test" => {
     "TESTS" => "t/*.t"
   }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-0.90/README 
new/Devel-PatchPerl-0.96/README
--- old/Devel-PatchPerl-0.90/README     2013-05-19 00:58:50.000000000 +0200
+++ new/Devel-PatchPerl-0.96/README     2013-07-08 08:55:06.000000000 +0200
@@ -2,7 +2,7 @@
     Devel::PatchPerl - Patch perl source a la Devel::PPPort's buildperl.pl
 
 VERSION
-    version 0.90
+    version 0.96
 
 SYNOPSIS
       use strict;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-0.90/bin/patchperl 
new/Devel-PatchPerl-0.96/bin/patchperl
--- old/Devel-PatchPerl-0.90/bin/patchperl      2013-05-19 00:58:50.000000000 
+0200
+++ new/Devel-PatchPerl-0.96/bin/patchperl      2013-07-08 08:55:06.000000000 
+0200
@@ -20,7 +20,7 @@
 
 =head1 VERSION
 
-version 0.90
+version 0.96
 
 =head1 AUTHOR
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-0.90/dist.ini 
new/Devel-PatchPerl-0.96/dist.ini
--- old/Devel-PatchPerl-0.90/dist.ini   2013-05-19 00:58:50.000000000 +0200
+++ new/Devel-PatchPerl-0.96/dist.ini   2013-07-08 08:55:06.000000000 +0200
@@ -1,5 +1,5 @@
 name = Devel-PatchPerl
-version = 0.90
+version = 0.96
 author = Chris Williams <[email protected]>
 license = Perl_5
 copyright_holder = Chris Williams and Marcus Holland-Moritz
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-0.90/lib/Devel/PatchPerl/Hints.pm 
new/Devel-PatchPerl-0.96/lib/Devel/PatchPerl/Hints.pm
--- old/Devel-PatchPerl-0.90/lib/Devel/PatchPerl/Hints.pm       2013-05-19 
00:58:50.000000000 +0200
+++ new/Devel-PatchPerl-0.96/lib/Devel/PatchPerl/Hints.pm       2013-07-08 
08:55:06.000000000 +0200
@@ -1,6 +1,6 @@
 package Devel::PatchPerl::Hints;
 {
-  $Devel::PatchPerl::Hints::VERSION = '0.90';
+  $Devel::PatchPerl::Hints::VERSION = '0.96';
 }
 
 #ABSTRACT: replacement 'hints' files
@@ -1248,29 +1248,29 @@
 'dXNldmZvcms9J3RydWUnCmNhc2UgIiR1c2VteW1hbGxvYyIgaW4KICAgICIiKSB1c2VteW1hbGxv
 Yz0nbicKICAgICAgICA7Owplc2FjCmxpYnN3YW50ZWQ9YGVjaG8gJGxpYnN3YW50ZWQgfCBzZWQg
 J3MvIG1hbGxvYyAvIC8nYAoKb2JqZm9ybWF0PWAvdXNyL2Jpbi9vYmpmb3JtYXRgCmlmIFsgeCRv
-Ympmb3JtYXQgPSB4ZWxmIF07IHRoZW4KICAgIGxpYnB0aD0iL3Vzci9saWIgL3Vzci9sb2NhbC9s
-aWIiCiAgICBnbGlicHRoPSIvdXNyL2xpYiAvdXNyL2xvY2FsL2xpYiIKICAgIGxkZmxhZ3M9Ii1X
-bCwtRSAiCiAgICBsZGRsZmxhZ3M9Ii1zaGFyZWQgIgplbHNlCiAgICBpZiBbIC1lIC91c3IvbGli
-L2FvdXQgXTsgdGhlbgogICAgICAgIGxpYnB0aD0iL3Vzci9saWIvYW91dCAvdXNyL2xvY2FsL2xp
-YiAvdXNyL2xpYiIKICAgICAgICBnbGlicHRoPSIvdXNyL2xpYi9hb3V0IC91c3IvbG9jYWwvbGli
-IC91c3IvbGliIgogICAgZmkKICAgIGxkZGxmbGFncz0nLUJzaGFyZWFibGUnCmZpCmNjY2RsZmxh
-Z3M9Jy1EUElDIC1mUElDJwoKY2NmbGFncz0iJHtjY2ZsYWdzfSAtREhBU19GUFNFVE1BU0sgLURI
-QVNfRkxPQVRJTkdQT0lOVF9IIgppZiAvdXNyL2Jpbi9maWxlIC1MIC91c3IvbGliL2xpYmMuc28g
-fCAvdXNyL2Jpbi9ncmVwIC12cSAibm90IHN0cmlwcGVkIiA7IHRoZW4KICAgIHVzZW5tPWZhbHNl
-CmZpCgpzaWduYWxfdD0ndm9pZCcKZF92b2lkc2lnPSdkZWZpbmUnCgojIFRoaXMgc2NyaXB0IFVV
-L3VzZXRocmVhZHMuY2J1IHdpbGwgZ2V0ICdjYWxsZWQtYmFjaycgYnkgQ29uZmlndXJlIAojIGFm
-dGVyIGl0IGhhcyBwcm9tcHRlZCB0aGUgdXNlciBmb3Igd2hldGhlciB0byB1c2UgdGhyZWFkcy4K
-Y2F0ID4gVVUvdXNldGhyZWFkcy5jYnUgPDwnRU9DQlUnCmNhc2UgIiR1c2V0aHJlYWRzIiBpbgok
-ZGVmaW5lfHRydWV8W3lZXSopCglsZGZsYWdzPSItcHRocmVhZCAkbGRmbGFncyIKCXNldCBgZWNo
-byBYICIkbGlic3dhbnRlZCAifCBzZWQgLWUgJ3MvIGMgLy8nYAoJc2hpZnQKCWxpYnN3YW50ZWQ9
-IiQqIgoJIyBDb25maWd1cmUgd2lsbCBwcm9iYWJseSBwaWNrIHRoZSB3cm9uZyBsaWJjIHRvIHVz
-ZSBmb3Igbm0gc2Nhbi4KCSMgVGhlIHNhZmVzdCBxdWljay1maXggaXMganVzdCB0byBub3QgdXNl
-IG5tIGF0IGFsbC4uLgoJdXNlbm09ZmFsc2UKCiAgICAgICAgdW5zZXQgbGNfcgoKCSMgRXZlbiB3
-aXRoIHRoZSBtYWxsb2MgbXV0ZXhlcyB0aGUgUGVybCBtYWxsb2MgZG9lcyBub3QKCSMgc2VlbSB0
-byBiZSB0aHJlYWRzYWZlIGluIE1pZG5pZ2h0QlNEPwoJY2FzZSAiJHVzZW15bWFsbG9jIiBpbgoJ
-JycpIHVzZW15bWFsbG9jPW4gOzsKCWVzYWMKZXNhYwpFT0NCVQoKIyBtYWxsb2Mgd3JhcCB3b3Jr
-cwpjYXNlICIkdXNlbWFsbG9jd3JhcCIgaW4KJycpIHVzZW1hbGxvY3dyYXA9J2RlZmluZScgOzsK
-ZXNhYwo=',
+Ympmb3JtYXQgPSB4YW91dCBdOyB0aGVuCiAgICBpZiBbIC1lIC91c3IvbGliL2FvdXQgXTsgdGhl
+bgogICAgICAgIGxpYnB0aD0iL3Vzci9saWIvYW91dCAvdXNyL2xvY2FsL2xpYiAvdXNyL2xpYiIK
+ICAgICAgICBnbGlicHRoPSIvdXNyL2xpYi9hb3V0IC91c3IvbG9jYWwvbGliIC91c3IvbGliIgog
+ICAgZmkKICAgIGxkZGxmbGFncz0nLUJzaGFyZWFibGUnCmVsc2UKICAgIGxpYnB0aD0iL3Vzci9s
+aWIgL3Vzci9sb2NhbC9saWIiCiAgICBnbGlicHRoPSIvdXNyL2xpYiAvdXNyL2xvY2FsL2xpYiIK
+ICAgIGxkZmxhZ3M9Ii1XbCwtRSAiCiAgICBsZGRsZmxhZ3M9Ii1zaGFyZWQgIgpmaQpjY2NkbGZs
+YWdzPSctRFBJQyAtZlBJQycKCmNjZmxhZ3M9IiR7Y2NmbGFnc30gLURIQVNfRlBTRVRNQVNLIC1E
+SEFTX0ZMT0FUSU5HUE9JTlRfSCIKaWYgL3Vzci9iaW4vZmlsZSAtTCAvdXNyL2xpYi9saWJjLnNv
+IHwgL3Vzci9iaW4vZ3JlcCAtdnEgIm5vdCBzdHJpcHBlZCIgOyB0aGVuCiAgICB1c2VubT1mYWxz
+ZQpmaQoKc2lnbmFsX3Q9J3ZvaWQnCmRfdm9pZHNpZz0nZGVmaW5lJwoKIyBUaGlzIHNjcmlwdCBV
+VS91c2V0aHJlYWRzLmNidSB3aWxsIGdldCAnY2FsbGVkLWJhY2snIGJ5IENvbmZpZ3VyZSAKIyBh
+ZnRlciBpdCBoYXMgcHJvbXB0ZWQgdGhlIHVzZXIgZm9yIHdoZXRoZXIgdG8gdXNlIHRocmVhZHMu
+CmNhdCA+IFVVL3VzZXRocmVhZHMuY2J1IDw8J0VPQ0JVJwpjYXNlICIkdXNldGhyZWFkcyIgaW4K
+JGRlZmluZXx0cnVlfFt5WV0qKQoJbGRmbGFncz0iLXB0aHJlYWQgJGxkZmxhZ3MiCglzZXQgYGVj
+aG8gWCAiJGxpYnN3YW50ZWQgInwgc2VkIC1lICdzLyBjIC8vJ2AKCXNoaWZ0CglsaWJzd2FudGVk
+PSIkKiIKCSMgQ29uZmlndXJlIHdpbGwgcHJvYmFibHkgcGljayB0aGUgd3JvbmcgbGliYyB0byB1
+c2UgZm9yIG5tIHNjYW4uCgkjIFRoZSBzYWZlc3QgcXVpY2stZml4IGlzIGp1c3QgdG8gbm90IHVz
+ZSBubSBhdCBhbGwuLi4KCXVzZW5tPWZhbHNlCgogICAgICAgIHVuc2V0IGxjX3IKCgkjIEV2ZW4g
+d2l0aCB0aGUgbWFsbG9jIG11dGV4ZXMgdGhlIFBlcmwgbWFsbG9jIGRvZXMgbm90CgkjIHNlZW0g
+dG8gYmUgdGhyZWFkc2FmZSBpbiBNaWRuaWdodEJTRD8KCWNhc2UgIiR1c2VteW1hbGxvYyIgaW4K
+CScnKSB1c2VteW1hbGxvYz1uIDs7Cgllc2FjCmVzYWMKRU9DQlUKCiMgbWFsbG9jIHdyYXAgd29y
+a3MKY2FzZSAiJHVzZW1hbGxvY3dyYXAiIGluCicnKSB1c2VtYWxsb2N3cmFwPSdkZWZpbmUnIDs7
+CmVzYWMK',
 'gnukfreebsd' =>
 'IyEgL2Jpbi9zaAoKIyBTdXBwb3J0IGZvciBEZWJpYW4gR05VL2tGcmVlQlNEIChrZnJlZWJzZC1n
 bnUpCiMgQSBwb3J0IG9mIHRoZSBEZWJpYW4gR05VIHN5c3RlbSB1c2luZyB0aGUgRnJlZUJTRCBr
@@ -1709,7 +1709,7 @@
 
 =head1 VERSION
 
-version 0.90
+version 0.96
 
 =head1 SYNOPSIS
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-0.90/lib/Devel/PatchPerl/Plugin.pm 
new/Devel-PatchPerl-0.96/lib/Devel/PatchPerl/Plugin.pm
--- old/Devel-PatchPerl-0.90/lib/Devel/PatchPerl/Plugin.pm      2013-05-19 
00:58:50.000000000 +0200
+++ new/Devel-PatchPerl-0.96/lib/Devel/PatchPerl/Plugin.pm      2013-07-08 
08:55:06.000000000 +0200
@@ -1,6 +1,6 @@
 package Devel::PatchPerl::Plugin;
 {
-  $Devel::PatchPerl::Plugin::VERSION = '0.90';
+  $Devel::PatchPerl::Plugin::VERSION = '0.96';
 }
 
 #ABSTRACT: Devel::PatchPerl plugins explained
@@ -20,7 +20,7 @@
 
 =head1 VERSION
 
-version 0.90
+version 0.96
 
 =head1 DESCRIPTION
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-0.90/lib/Devel/PatchPerl.pm 
new/Devel-PatchPerl-0.96/lib/Devel/PatchPerl.pm
--- old/Devel-PatchPerl-0.90/lib/Devel/PatchPerl.pm     2013-05-19 
00:58:50.000000000 +0200
+++ new/Devel-PatchPerl-0.96/lib/Devel/PatchPerl.pm     2013-07-08 
08:55:06.000000000 +0200
@@ -1,6 +1,6 @@
 package Devel::PatchPerl;
 {
-  $Devel::PatchPerl::VERSION = '0.90';
+  $Devel::PatchPerl::VERSION = '0.96';
 }
 
 # ABSTRACT: Patch perl source a la Devel::PPPort's buildperl.pl
@@ -155,6 +155,12 @@
             ],
     subs => [ [ \&_patch_hsplit_rehash_510 ] ],
   },
+  {
+    perl => [
+              qr/^5\.18\.0$/,
+            ],
+    subs => [ [ \&_patch_regmatch_pointer_5180 ] ],
+  },
 );
 
 sub patch_source {
@@ -2155,6 +2161,87 @@
 BUBBLE
 }
 
+#commit 4149c7198d9b78d861df289cce40dd865cab57e7
+sub _patch_regmatch_pointer_5180 {
+  _patch(<<'BOBBLE');
+diff --git a/regexec.c b/regexec.c
+index bc38839..b865b46 100644
+--- regexec.c
++++ regexec.c
+@@ -6662,7 +6662,7 @@ S_regrepeat(pTHX_ regexp *prog, char **startposp, const 
regnode *p,
+     scan = *startposp;
+     if (max == REG_INFTY)
+       max = I32_MAX;
+-    else if (! utf8_target && scan + max < loceol)
++    else if (! utf8_target && loceol - scan > max)
+       loceol = scan + max;
+ 
+     /* Here, for the case of a non-UTF-8 target we have adjusted <loceol> down
+@@ -6711,7 +6711,7 @@ S_regrepeat(pTHX_ regexp *prog, char **startposp, const 
regnode *p,
+           scan = loceol;
+       break;
+     case CANY:  /* Move <scan> forward <max> bytes, unless goes off end */
+-        if (utf8_target && scan + max < loceol) {
++        if (utf8_target && loceol - scan > max) {
+ 
+             /* <loceol> hadn't been adjusted in the UTF-8 case */
+             scan +=  max;
+@@ -6730,7 +6730,7 @@ S_regrepeat(pTHX_ regexp *prog, char **startposp, const 
regnode *p,
+          * can use UTF8_IS_INVARIANT() even if the pattern isn't UTF-8, as 
it's
+          * true iff it doesn't matter if the argument is in UTF-8 or not */
+         if (UTF8_IS_INVARIANT(c) || (! utf8_target && ! is_utf8_pat)) {
+-            if (utf8_target && scan + max < loceol) {
++            if (utf8_target && loceol - scan > max) {
+                 /* We didn't adjust <loceol> because is UTF-8, but ok to do 
so,
+                  * since here, to match at all, 1 char == 1 byte */
+                 loceol = scan + max;
+@@ -6910,7 +6910,7 @@ S_regrepeat(pTHX_ regexp *prog, char **startposp, const 
regnode *p,
+         /* FALLTHROUGH */
+ 
+     case POSIXA:
+-        if (utf8_target && scan + max < loceol) {
++        if (utf8_target && loceol - scan > max) {
+ 
+             /* We didn't adjust <loceol> at the beginning of this routine
+              * because is UTF-8, but it is actually ok to do so, since here, 
to
+diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t
+index 2244fdf..9a9b5f5 100644
+--- t/re/pat_rt_report.t
++++ t/re/pat_rt_report.t
+@@ -22,7 +22,7 @@ BEGIN {
+ }
+ 
+ 
+-plan tests => 2530;  # Update this when adding/deleting tests.
++plan tests => 2532;  # Update this when adding/deleting tests.
+ 
+ run_tests() unless caller;
+ 
+@@ -1158,6 +1158,21 @@ EOP
+             '$_ = "abc"; /b/g; $_ = "hello"; print eval q|$\'|,"\n"',
+             "c\n", {}, '$\' first mentioned after match');
+     }
++
++    {
++      # [perl #118175] threaded perl-5.18.0 fails pat_rt_report_thr.t
++      # this tests some related failures
++      #
++      # The tests in the block *only* fail when run on 32-bit systems
++      # with a malloc that allocates above the 2GB line.  On the system
++      # in the report above that only happened in a thread.
++      my $s = "\x{1ff}" . "f" x 32;
++      ok($s =~ /\x{1ff}[[:alpha:]]+/gca, "POSIXA pointer wrap");
++
++      # this one segfaulted under the conditions above
++      # of course, CANY is evil, maybe it should crash
++      ok($s =~ /.\C+/, "CANY pointer wrap");
++    }
+ } # End of sub run_tests
+ 
+ 1;
+BOBBLE
+}
+
 qq[patchin'];
 
 __END__
@@ -2167,7 +2254,7 @@
 
 =head1 VERSION
 
-version 0.90
+version 0.96
 
 =head1 SYNOPSIS
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Devel-PatchPerl-0.90/tools/audit_hints.pl 
new/Devel-PatchPerl-0.96/tools/audit_hints.pl
--- old/Devel-PatchPerl-0.90/tools/audit_hints.pl       2013-05-19 
00:58:50.000000000 +0200
+++ new/Devel-PatchPerl-0.96/tools/audit_hints.pl       2013-07-08 
08:55:06.000000000 +0200
@@ -19,5 +19,5 @@
     local $/ = undef;
     $fdata = encode_base64(<$fh>)
   }
-  say "$os $file" if diff \$data, \$fdata;
+  say "'$os' =>\n'$fdata'," if diff \$data, \$fdata;
 }

-- 
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]

Reply via email to