From f1193e4ba072b6cee733886bd9a7d0774562ded0 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 3 Oct 2011 11:39:58 +0200 Subject: [PATCH] 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. --- Porting/bisect-runner.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.7.4