ntop-perl.patch

   1 diff -urN ntop.org/plugins/pep/pep.c ntop/plugins/pep/pep.c
   2 --- ntop.org/plugins/pep/pep.c  Mon Mar 26 19:30:37 2001
   3 +++ ntop/plugins/pep/pep.c      Mon Mar 26 20:03:37 2001
   4 @@ -52,7 +52,7 @@
   5  /*
   6   * a private instance of Perl
   7   */
   8 -static PerlInterpreter * pep_perl = NULL;
   9 +static PerlInterpreter * my_perl = NULL;
  10
  11
  12  /*
  13 @@ -63,9 +63,9 @@
  14    /*
  15     * free the previously allocated perl instance
  16     */
  17 -  perl_destruct (pep_perl);
  18 -  perl_free (pep_perl);
  19 -  pep_perl = NULL;
  20 +  perl_destruct (my_perl);
  21 +  perl_free (my_perl);
  22 +  my_perl = NULL;
  23
  24    traceEvent (TRACE_INFO, "\n");
  25    traceEvent (TRACE_INFO, "Thanks for having used PeP....\n");
  26 @@ -176,7 +176,7 @@
  27    /*
  28     * compile the file
  29     */
  30 -  perl_parse (pep_perl, NULL, pep_argc, pep_argv, NULL);
  31 +  perl_parse (my_perl, NULL, pep_argc, pep_argv, NULL);
  32
  33    /*
  34     * create a new variable, the %traffic hash
  35 @@ -381,7 +381,7 @@
  36    /*
  37     * and then execute the script
  38     */
  39 -  perl_run (pep_perl);
  40 +  perl_run (my_perl);
  41
  42     if (traffic)
  43      hv_undef (traffic);
  44 @@ -410,8 +410,8 @@
  45    /*
  46     * initialization: allocate a private instance of the Perl Interpreter
  47     */
  48 -  pep_perl = perl_alloc ();
  49 -  perl_construct (pep_perl);
  50 +  my_perl = perl_alloc ();
  51 +  perl_construct (my_perl);
  52
  53    return (plugininfo);
  54  }