Skip to content

Commit eb2a178

Browse files
nwc10demerphq
authored andcommitted
bisect-runner.pl should supply a prototype for Gv_AMupdate
This was missing prior to perl-5.001
1 parent 889794d commit eb2a178

File tree

1 file changed

+17
-0
lines changed

1 file changed

+17
-0
lines changed

Porting/bisect-runner.pl

Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3544,6 +3544,23 @@ sub patch_C {
35443544
# This is ordered by $major, as it's likely that different platforms may
35453545
# well want to share code.
35463546
3547+
if ($major == 0) {
3548+
apply_patch(<<'EOPATCH');
3549+
diff --git a/proto.h b/proto.h
3550+
index 9ffc6bbabc..16da198342 100644
3551+
--- a/proto.h
3552+
+++ b/proto.h
3553+
@@ -8,6 +8,7 @@
3554+
#endif
3555+
#ifdef OVERLOAD
3556+
SV* amagic_call _((SV* left,SV* right,int method,int dir));
3557+
+bool Gv_AMupdate _((HV* stash));
3558+
#endif /* OVERLOAD */
3559+
OP* append_elem _((I32 optype, OP* head, OP* tail));
3560+
OP* append_list _((I32 optype, LISTOP* first, LISTOP* last));
3561+
EOPATCH
3562+
}
3563+
35473564
if ($major == 2 && extract_from_file('perl.c', qr/^\tfclose\(e_fp\);$/)) {
35483565
# need to patch perl.c to avoid calling fclose() twice on e_fp when
35493566
# using -e

0 commit comments

Comments
 (0)