File suck-4.3.0-thrperl.dif of Package suck

--- killprg.c
+++ killprg.c
@@ -412,6 +412,7 @@
 	/* this code comes from the both perlembed and perlcall man pages */
 	int i, retval = FALSE;
 	char *args[2] = { NULL, NULL};
+	dTHX;
 
 	dSP; /* Perl stack pointer */
 
@@ -523,6 +524,7 @@
 		/* this code comes from the both perlembed and perlcall man pages */
 
 		else if(killp->perl_int != NULL) {
+			dTHX;
 			dSP; /* Perl stack pointer */
 
 			/* first set up args */
@@ -622,6 +624,7 @@
 
 	int i, retval = FALSE;
 	char *args[2] = { NULL, NULL};
+	dTHX;
 	
 	dSP; /* Perl stack pointer */
 
--- rpost.c
+++ rpost.c
@@ -770,6 +770,7 @@
 	 char *args[2] ={ NULL, NULL};
 	 char infilen[MAXLINLEN+1];
 	 char *infile=NULL;
+	 dTHX;
 	 dSP; /* perl stack pointer */
 	 SV *fname; /* used to get fname off of perl stack */
 	 
@@ -1050,6 +1051,7 @@
 	 FILE *f_rnews, *f_temp;
 	 char rnews_path[PATH_MAX+1], temp_path[PATH_MAX+1], linein[MAXLINLEN];
 	 struct dirent *dentry;
+	 dTHX;
 
 	 sprintf(temp_path, "%s/%s", myargs->rnews_path, TEMP_ARTICLE); /* only need to do this once */
openSUSE Build Service is sponsored by