This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bisect-runner.pl needs to know how to identify HP-UX's patch.
authorNicholas Clark <nick@ccl4.org>
Mon, 9 Apr 2012 06:02:38 +0000 (08:02 +0200)
committerNicholas Clark <nick@ccl4.org>
Tue, 28 May 2013 07:19:27 +0000 (09:19 +0200)
Unlike AIX, HP-UX patch offers no meaningful clue as to its upstream version:

$ patch -v
$Header: patch.c,v 76.1.1.2.1.3 2001/12/03 12:24:52 abhinav Exp $
Patch level: 0

But it ignores unified diffs, so assume the worst and feed it context diffs.

Porting/bisect-runner.pl

index 46e6366..57aae49 100755 (executable)
@@ -703,6 +703,10 @@ sub ud2cd {
                 # The system patch is older than Linux, and probably older than
                 # Windows NT.
                 $use_context = 1;
+            } elsif ($version =~ /Header: patch\.c,v.*\babhinav\b/) {
+                # Thank you HP. No, we have no idea *which* version this is:
+                # $Header: patch.c,v 76.1.1.2.1.3 2001/12/03 12:24:52 abhinav Exp $
+                $use_context = 1;
             } else {
                 # Don't know.
                 $use_context = 0;