From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 3 Oct 2011 09:39:58 +0000 (+0200)
Subject: If patching fails, bisect-runner.pl should report the name of the file.
X-Git-Tag: accepted/trunk/20130322.191538~2519
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f1193e4ba072b6cee733886bd9a7d0774562ded0;p=platform%2Fupstream%2Fperl.git

If patching fails, bisect-runner.pl should report the name of the file.

When commit 0142f0ceeb8dc10a refactored the relevant code into apply_patch(),
it left "perl.c" hard coded into an error message.
---

diff --git a/Porting/bisect-runner.pl b/Porting/bisect-runner.pl
index 56e023e..20b1f48 100755
--- a/Porting/bisect-runner.pl
+++ b/Porting/bisect-runner.pl
@@ -116,9 +116,10 @@ sub report_and_exit {
 sub apply_patch {
     my $patch = shift;
 
+    my ($file) = $patch =~ qr!^diff.*a/(\S+) b/\1!;
     open my $fh, '|-', 'patch' or die "Can't run patch: $!";
     print $fh $patch;
-    close $fh or die "Can't patch perl.c: $?, $!";
+    close $fh or die "Can't patch $file: $?, $!";
 }
 
 # Not going to assume that system perl is yet new enough to have autodie