forked from pool/apache2-mod_perl
David Anes
47ba00abae
- Add apache2-mod_perl-perl-5.38.patch: Fix build with Perl 5.38. Usptream rev 1910623. OBS-URL: https://build.opensuse.org/request/show/1102851 OBS-URL: https://build.opensuse.org/package/show/Apache:Modules/apache2-mod_perl?expand=0&rev=80
15 lines
681 B
Diff
15 lines
681 B
Diff
--- 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));
|
|
|