diff options
| author | George Greer <perl@greerga.m-l.org> | 2014-09-04 21:15:23 -0400 |
|---|---|---|
| committer | George Greer <perl@greerga.m-l.org> | 2014-09-04 21:22:34 -0400 |
| commit | ca81d15134dd9dc7c213a6d9bbac15adcbc11b08 (patch) | |
| tree | 0861b2d788595210060ea7663ffafde20da15d5b /cpan/Scalar-List-Utils | |
| parent | c7da42cc2bffbdf6f3cf7de8f80e9da2bf3320b9 (diff) | |
| download | perl-ca81d15134dd9dc7c213a6d9bbac15adcbc11b08.tar.gz | |
ListUtil.xs: Temporary fix removing declaration after statement.
https://rt.cpan.org/Public/Bug/Display.html?id=98624
Diffstat (limited to 'cpan/Scalar-List-Utils')
| -rw-r--r-- | cpan/Scalar-List-Utils/ListUtil.xs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/cpan/Scalar-List-Utils/ListUtil.xs b/cpan/Scalar-List-Utils/ListUtil.xs index 1b213793e5..a21e848f02 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); |