From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 20 Nov 2005 12:10:15 +0000 (+0000)
Subject: Declarations must come first, or some compilers aren't happy.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ef35129c7fc9e8b23677855fe4f6e7aa37b32ef4;p=p5sagit%2Fp5-mst-13.2.git

Declarations must come first, or some compilers aren't happy.
(spotted by Jarkko)

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

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 6b3d64c..04422b3 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1322,8 +1322,8 @@ precomp(mg)
         B::MAGIC        mg
     CODE:
         if (mg->mg_type == 'r') {
-            RETVAL = Nullsv;
             REGEXP* rx = (REGEXP*)mg->mg_obj;
+            RETVAL = Nullsv;
             if( rx )
                 RETVAL = newSVpvn( rx->precomp, rx->prelen );
         }