From afc98f896ef0b0e277f254f4c900e74d04e497ef Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 28 Oct 2011 13:28:31 +0200
Subject: [PATCH 1/1] bisect-runner.pl now patches another 5.004-era build
 busting bug.

A missing comma in perl.c breaks about 50 revisions between 2a92aaa05aa1acbf
and 8490252049bf42d3^.
---
 Porting/bisect-runner.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/Porting/bisect-runner.pl b/Porting/bisect-runner.pl
index 44a321b..1639a70 100755
--- a/Porting/bisect-runner.pl
+++ b/Porting/bisect-runner.pl
@@ -1775,6 +1775,25 @@ index 03c4d48..3c814a2 100644
 EOPATCH
 }
 
+if ($major == 4 && !extract_from_file('perl.c', qr/delimcpy.*,$/)) {
+    # bug introduced in 2a92aaa05aa1acbf, fixed in 8490252049bf42d3
+    apply_patch(<<'EOPATCH');
+diff --git a/perl.c b/perl.c
+index 4eb69e3..54bbb00 100644
+--- a/perl.c
++++ b/perl.c
+@@ -1735,7 +1735,7 @@ SV *sv;
+ 	    if (len < sizeof tokenbuf)
+ 		tokenbuf[len] = '\0';
+ #else	/* ! (atarist || DOSISH) */
+-	    s = delimcpy(tokenbuf, tokenbuf + sizeof tokenbuf, s, bufend
++	    s = delimcpy(tokenbuf, tokenbuf + sizeof tokenbuf, s, bufend,
+ 			 ':',
+ 			 &len);
+ #endif	/* ! (atarist || DOSISH) */
+EOPATCH
+}
+
 if (($major >= 7 || $major <= 9) && $^O eq 'openbsd'
     && `uname -m` eq "sparc64\n"
     # added in 2000 by commit cb434fcc98ac25f5:
-- 
1.8.3.1