Prevent bail_out summary when no handler for it is defined

Leont · Leont · commit 715e763e0cf0 · 2024-06-13T22:05:49.000+02:00
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 Revision history for Test-Harness
 
         - Prevent double summary on bail-out
+        - Prevent bail_out summary when no handler for it is defined
 
 3.49_01 2024-04-27
         - Simplify runtests
diff --git a/lib/TAP/Harness.pm b/lib/TAP/Harness.pm
@@ -609,7 +609,7 @@ sub _bailout {
     $job->finish;
 
     my $explanation = $result->explanation;
-    $self->{bail_summary}();
+    $self->{bail_summary}() if $self->{bail_summary};
     die "FAILED--Further testing stopped"
       . ( $explanation ? ": $explanation\n" : ".\n" );
 }

Original file line number	Diff line number	Diff line change
`@@ -609,7 +609,7 @@ sub _bailout {`
`609`	`609`	`$job->finish;`
`610`	`610`
`611`	`611`	`my $explanation = $result->explanation;`
`612`		`- $self->{bail_summary}();`
	`612`	`+ $self->{bail_summary}() if $self->{bail_summary};`
`613`	`613`	`die "FAILED--Further testing stopped"`
`614`	`614`	`. ( $explanation ? ": $explanation\n" : ".\n" );`
`615`	`615`	`}`