File tree Expand file tree Collapse file tree 1 file changed +20
-2
lines changed Expand file tree Collapse file tree 1 file changed +20
-2
lines changed Original file line number Diff line number Diff line change @@ -4266,8 +4266,26 @@ sub patch_C {
4266
4266
EOPATCH
4267
4267
}
4268
4268
4269
- if ($major < 8 && $^O eq ' openbsd'
4270
- && !extract_from_file(' perl.h' , qr / include <unistd\. h>/ )) {
4269
+ if ($major < 8 && !extract_from_file(' perl.h' , qr /\b short htovs\b / )) {
4270
+ # This is part of commit c623ac675720b314
4271
+ apply_patch(<<'EOPATCH' );
4272
+ diff --git a/perl.h b/perl.h
4273
+ index 023b90b7ea..59a21faecd 100644
4274
+ --- a/perl.h
4275
+ +++ b/perl.h
4276
+ @@ -2279,4 +2279,8 @@ struct ptr_tbl {
4277
+ # endif
4278
+ /* otherwise default to functions in util.c */
4279
+ +short htovs(short n);
4280
+ +short vtohs(short n);
4281
+ +long htovl(long n);
4282
+ +long vtohl(long n);
4283
+ #endif
4284
+
4285
+ EOPATCH
4286
+ }
4287
+
4288
+ if ($major < 8 && !extract_from_file(' perl.h' , qr / include <unistd\. h>/ )) {
4271
4289
# This is part of commit 3f270f98f9305540, applied at a slightly
4272
4290
# different location in perl.h, where the context is stable back to
4273
4291
# 5.000
You can’t perform that action at this time.
0 commit comments