File apache2-mod_perl-perl-5.38.patch of Package apache2-mod_perl

--- trunk/src/modules/perl/modperl_io.c	2014/06/12 09:29:09	1602105
+++ trunk/src/modules/perl/modperl_io.c	2023/06/27 08:38:15	1910623
@@ -116,8 +116,8 @@
     save_gp(handle, 1);
 
     sv_setref_pv(sv, "Apache2::RequestRec", (void*)r);
-    status = do_open9(handle, mode == O_RDONLY ? "<:Apache2" : ">:Apache2",
-                      9, FALSE, mode, 0, (PerlIO *)NULL, sv, 1);
+    status = do_openn(handle, mode == O_RDONLY ? "<:Apache2" : ">:Apache2",
+                      9, FALSE, mode, 0, (PerlIO *)NULL, &sv, 1);
     if (status == 0) {
         Perl_croak(aTHX_ "Failed to open STD%s: %" SVf,
                    mode == O_RDONLY ? "IN" : "OUT", get_sv("!", TRUE));