This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Introduce a "declaration after statement" into inline.h"
authorLeon Timmermans <fawaka@gmail.com>
Wed, 20 Oct 2021 19:39:44 +0000 (21:39 +0200)
committerLeon Timmermans <fawaka@gmail.com>
Wed, 20 Oct 2021 19:39:44 +0000 (21:39 +0200)
This reverts commit 632ce96a35d784df9e43bc8ad87b4e8f1f24a590.

Sereal hasn't been fixed yet to deal with the fallout of this change,
so we postpone this change for a later moment

inline.h

index e9b5580..79155d8 100644 (file)
--- a/inline.h
+++ b/inline.h
@@ -81,6 +81,8 @@ Approximate Perl equivalent: C<splice(@myarray, $key, 1, $val)>.
 PERL_STATIC_INLINE SV**
 Perl_av_store_simple(pTHX_ AV *av, SSize_t key, SV *val)
 {
+    SV** ary;
+
     PERL_ARGS_ASSERT_AV_STORE_SIMPLE;
     assert(SvTYPE(av) == SVt_PVAV);
     assert(!SvMAGICAL(av));
@@ -88,7 +90,7 @@ Perl_av_store_simple(pTHX_ AV *av, SSize_t key, SV *val)
     assert(AvREAL(av));
     assert(key > -1);
 
-    SV **ary = AvARRAY(av);
+    ary = AvARRAY(av);
 
     if (AvFILLp(av) < key) {
         if (key > AvMAX(av)) {