From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 11 Apr 2008 13:45:43 +0000 (+0000)
Subject: Fix C portability nit found by Jerry D. Hedden.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4f3bd1eee42dd26d655edfa88fdf9885eb82325;p=p5sagit%2Fp5-mst-13.2.git

Fix C portability nit found by Jerry D. Hedden.

p4raw-id: //depot/perl@33669
---

diff --git a/sv.c b/sv.c
index f9546e1..a61f90a 100644
--- a/sv.c
+++ b/sv.c
@@ -7873,8 +7873,8 @@ Perl_sv_2cv(pTHX_ SV *sv, HV **const st, GV **const gvp, const I32 lref)
 
     default:
 	if (SvROK(sv)) {
-	    SvGETMAGIC(sv);
 	    SV * const *sp = &sv;	/* Used in tryAMAGICunDEREF macro. */
+	    SvGETMAGIC(sv);
 	    tryAMAGICunDEREF(to_cv);
 
 	    sv = SvRV(sv);