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 (file)
--- 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 );
         }