SOURCES: inn-perl-segv.patch - arrrrgh. one more perl_call_segv :/

[qboosh]

Author: qboosh                       Date: Wed Feb 20 15:53:00 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- arrrrgh. one more perl_call_segv :/

---- Files affected:
SOURCES:
   inn-perl-segv.patch (1.1 -> 1.2) 

---- Diffs:

================================================================
Index: SOURCES/inn-perl-segv.patch
diff -u SOURCES/inn-perl-segv.patch:1.1 SOURCES/inn-perl-segv.patch:1.2
--- SOURCES/inn-perl-segv.patch:1.1	Sun Feb 17 23:47:34 2008
+++ SOURCES/inn-perl-segv.patch	Wed Feb 20 16:52:55 2008
@@ -72,3 +72,22 @@
  	SPAGAIN;
          result = POPp;
          if (result != NULL && *result)
+--- inn-2.4.3/nnrpd/perl.c.orig	2006-03-20 05:14:57.000000000 +0100
++++ inn-2.4.3/nnrpd/perl.c	2008-02-20 16:39:51.207541910 +0100
+@@ -63,6 +63,7 @@
+    HE            *scan;
+    SV            *modswitch;
+    int            OtherSize;
++   char *argv[] = { NULL };
+ 
+    if(!PerlLoaded) {
+        loadPerl();
+@@ -112,7 +113,7 @@
+    sv_setpv(body, article);
+ 
+    /* Call the filtering function */
+-   rc = perl_call_argv("filter_post", G_EVAL|G_SCALAR, NULL);
++   rc = perl_call_argv("filter_post", G_EVAL|G_SCALAR, argv);
+ 
+    SPAGAIN;
+ 
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/SOURCES/inn-perl-segv.patch?r1=1.1&r2=1.2&f=u