debian/patches/rlm_perl.diff

   1 --- freeradius-2.0.4+dfsg.orig/src/modules/rlm_perl/rlm_perl.c
   2 +++ freeradius-2.0.4+dfsg/src/modules/rlm_perl/rlm_perl.c
   3 @@ -717,10 +717,13 @@
   4         HV              *rad_request_proxy_reply_hv;
   5         AV              *end_AV;
   6
   7 -       char *embed[4];
   8 +       char **embed;
   9 +        char **envp = NULL;
  10         const char *xlat_name;
  11         int exitstatus = 0, argc=0;
  12
  13 +        embed = rad_malloc(4*(sizeof(char *)));
  14 +        memset(embed, 0, sizeof(4*(sizeof(char *))));
  15         /*
  16          *      Set up a storage area for instance data
  17          */
  18 @@ -749,6 +752,7 @@
  19                 argc = 3;
  20         }
  21
  22 +        PERL_SYS_INIT3(&argc, &embed, &envp);
  23  #ifdef USE_ITHREADS
  24         inst->perl = interp;
  25
  26 @@ -1296,6 +1300,7 @@
  27         perl_free(inst->perl);
  28  #endif
  29
  30 +        PERL_SYS_TERM();
  31         free(inst);
  32         return exitstatus;
  33  }