summaryrefslogtreecommitdiff
path: root/lang/perl5.14/files/patch-bug59516
diff options
context:
space:
mode:
authorSergey Skvortsov <skv@FreeBSD.org>2009-04-04 09:06:53 +0000
committerSergey Skvortsov <skv@FreeBSD.org>2009-04-04 09:06:53 +0000
commitd70143844849daaab2b798d1f12f92ba5037be3f (patch)
tree01e3fef15f2eb91721ec1e9ecc54d96ce294a67f /lang/perl5.14/files/patch-bug59516
parentupdate to 0.62.2 (diff)
Add several bugfixes, imported from maint-5.10
(i.e. will be included into forthcoming 5.10.1).
Notes
Notes: svn path=/head/; revision=231575
Diffstat (limited to 'lang/perl5.14/files/patch-bug59516')
-rw-r--r--lang/perl5.14/files/patch-bug5951616
1 files changed, 16 insertions, 0 deletions
diff --git a/lang/perl5.14/files/patch-bug59516 b/lang/perl5.14/files/patch-bug59516
new file mode 100644
index 000000000000..572c96e63d3c
--- /dev/null
+++ b/lang/perl5.14/files/patch-bug59516
@@ -0,0 +1,16 @@
+# http://rt.perl.org/rt3/Public/Bug/Display.html?id=59516
+# http://perl5.git.perl.org/perl.git/commitdiff/b023a8eeff463528d4a2b46396f79056c0ef9677?hp=a954f6ee3112c0edfbc59783d1b424d995122784
+diff --git a/regcomp.c b/regcomp.c
+index 54347cc..68cc58c 100644
+--- regcomp.c
++++ regcomp.c
+@@ -8350,6 +8350,9 @@ parseit:
+ *STRING(ret)= (char)value;
+ STR_LEN(ret)= 1;
+ RExC_emit += STR_SZ(1);
++ if (listsv) {
++ SvREFCNT_dec(listsv);
++ }
+ return ret;
+ }
+ /* optimize case-insensitive simple patterns (e.g. /[a-z]/i) */