This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix for pp.c under win32 etc
authorDavid Mitchell <davem@iabyn.com>
Mon, 18 Apr 2011 17:35:13 +0000 (18:35 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 18 Apr 2011 17:35:13 +0000 (18:35 +0100)
Commit d4fc4415aac96132fac5b1e43e73bcba33a41b79 added two definitions
of the DEREF_PLAIN_ARRAY array; the non-GCC one had syntax errors

pp.c

diff --git a/pp.c b/pp.c
index 40f6ed8..058a068 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -5446,10 +5446,10 @@ S_deref_plain_array(pTHX_ AV *ary)
 #else
 # define DEREF_PLAIN_ARRAY(ary)            \
    (                                        \
-     PL_Sv = (SV *)(ary);                    \
+     PL_Sv = (SV *)(ary),                    \
      SvTYPE(PL_Sv) == SVt_PVAV                \
       ? (AV *)PL_Sv                            \
-      : S_deref_plain_array(aTHX_ (AV *)PL_Sv); \
+      : S_deref_plain_array(aTHX_ (AV *)PL_Sv)  \
    )
 #endif