Fix issue with threaded perl requiring context

timlegge · timlegge · commit ddfd2c2072a0 · 2023-07-01T20:57:52.000-03:00
diff --git a/SignCSR.xs b/SignCSR.xs
@@ -195,7 +195,7 @@ void croakSsl(char* p_file, int p_line)
     croak("%s:%d: OpenSSL error: %s", p_file, p_line, errorReason);
 }
 
-SV* extractBioString(BIO* p_stringBio)
+SV* extractBioString(pTHX_ BIO* p_stringBio)
 {
     SV* sv;
     BUF_MEM* bptr;
@@ -744,7 +744,7 @@ SV * sign(self, request_SV, sigopts)
         if (!i)
             croak("unable to output certificate data\n");
 
-        RETVAL = extractBioString(out);
+        RETVAL = extractBioString(aTHX_ out);
 
     OUTPUT:
 

Original file line number	Diff line number	Diff line change
`@@ -195,7 +195,7 @@ void croakSsl(char* p_file, int p_line)`
`195`	`195`	`croak("%s:%d: OpenSSL error: %s", p_file, p_line, errorReason);`
`196`	`196`	`}`
`197`	`197`
`198`		`-SV* extractBioString(BIO* p_stringBio)`
	`198`	`+SV* extractBioString(pTHX_ BIO* p_stringBio)`
`199`	`199`	`{`
`200`	`200`	`SV* sv;`
`201`	`201`	`BUF_MEM* bptr;`
`@@ -744,7 +744,7 @@ SV * sign(self, request_SV, sigopts)`
`744`	`744`	`if (!i)`
`745`	`745`	`croak("unable to output certificate data\n");`
`746`	`746`
`747`		`- RETVAL = extractBioString(out);`
	`747`	`+ RETVAL = extractBioString(aTHX_ out);`
`748`	`748`
`749`	`749`	`OUTPUT:`
`750`	`750`