Author: stas
Date: Sat Nov 27 08:43:38 2004
New Revision: 106732

URL: http://svn.apache.org/viewcvs?view=rev&rev=106732
Log:
fix the declaration after code problem

Modified:
   perl/modperl/trunk/src/modules/perl/modperl_filter.c

Modified: perl/modperl/trunk/src/modules/perl/modperl_filter.c
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/modperl_filter.c?view=diff&rev=106732&p1=perl/modperl/trunk/src/modules/perl/modperl_filter.c&r1=106731&p2=perl/modperl/trunk/src/modules/perl/modperl_filter.c&r2=106732
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_filter.c        (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_filter.c        Sat Nov 27 
08:43:38 2004
@@ -394,15 +394,12 @@
         char *code = apr_pstrcat(p, "package ", package_name, ";",
                                  init_handler_pv_code, NULL);
         SV *sv;
-
+        modperl_handler_t *init_handler;
+        
         ENTER;SAVETMPS;
-
         sv = eval_pv(code, TRUE);
-
         /* fprintf(stderr, "code: %s\n", code); */
-        modperl_handler_t *init_handler =
-            modperl_handler_new_from_sv(aTHX_ p, sv);
-
+        init_handler = modperl_handler_new_from_sv(aTHX_ p, sv);
         FREETMPS;LEAVE;
 
         if (init_handler) {

Reply via email to