diff options
| author | Sergey Skvortsov <skv@FreeBSD.org> | 2009-04-04 09:06:53 +0000 |
|---|---|---|
| committer | Sergey Skvortsov <skv@FreeBSD.org> | 2009-04-04 09:06:53 +0000 |
| commit | d70143844849daaab2b798d1f12f92ba5037be3f (patch) | |
| tree | 01e3fef15f2eb91721ec1e9ecc54d96ce294a67f /lang/perl5.16/files/patch-bug52658 | |
| parent | update 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.16/files/patch-bug52658')
| -rw-r--r-- | lang/perl5.16/files/patch-bug52658 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lang/perl5.16/files/patch-bug52658 b/lang/perl5.16/files/patch-bug52658 new file mode 100644 index 000000000000..435f66e1f988 --- /dev/null +++ b/lang/perl5.16/files/patch-bug52658 @@ -0,0 +1,15 @@ +# http://rt.perl.org/rt3/Public/Bug/Display.html?id=52658 +# http://perl5.git.perl.org/perl.git/commitdiff/62b40d2474e7487e6909e1872b6bccdf812c6818?hp=d49025b75d9b5002071bd1a4210654dab5663ef0#patch1 +diff --git a/pp_ctl.c b/pp_ctl.c +index 7a377f0..88269a7 100644 +--- pp_ctl.c ++++ pp_ctl.c +@@ -218,7 +218,6 @@ PP(pp_substcont) + if (!(cx->sb_rxtainted & 2) && SvTAINTED(TOPs)) + cx->sb_rxtainted |= 2; + sv_catsv(dstr, POPs); +- FREETMPS; /* Prevent excess tmp stack */ + + /* Are we done */ + if (cx->sb_once || !CALLREGEXEC(rx, s, cx->sb_strend, orig, + |