In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ca81d15134dd9dc7c213a6d9bbac15adcbc11b08?hp=c7da42cc2bffbdf6f3cf7de8f80e9da2bf3320b9>
- Log ----------------------------------------------------------------- commit ca81d15134dd9dc7c213a6d9bbac15adcbc11b08 Author: George Greer <[email protected]> Date: Thu Sep 4 21:15:23 2014 -0400 ListUtil.xs: Temporary fix removing declaration after statement. https://rt.cpan.org/Public/Bug/Display.html?id=98624 ----------------------------------------------------------------------- Summary of changes: cpan/Scalar-List-Utils/ListUtil.xs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/cpan/Scalar-List-Utils/ListUtil.xs b/cpan/Scalar-List-Utils/ListUtil.xs index 1b21379..a21e848 100644 --- a/cpan/Scalar-List-Utils/ListUtil.xs +++ b/cpan/Scalar-List-Utils/ListUtil.xs @@ -1204,6 +1204,7 @@ PPCODE: int old_len = strlen(old_name) + strlen(old_pkg); int new_len = strlen(name) + strlen(new_pkg); + SV** old_data; char* full_name; Newxz(full_name, (old_len > new_len ? old_len : new_len) + 3, char); @@ -1211,7 +1212,7 @@ PPCODE: strcat(full_name, "::"); strcat(full_name, old_name); - SV** old_data = hv_fetch(hv, full_name, strlen(full_name), 0); + old_data = hv_fetch(hv, full_name, strlen(full_name), 0); if (old_data) { strcpy(full_name, new_pkg); -- Perl5 Master Repository
