From 335ce93a4ae9c97ebdb22a3f0349796ef3654c3f Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 7 Feb 2020 23:44:00 -0700 Subject: tighten perltidy exception Signed-off-by: Sean Whitton --- t/lib/t/Util.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/lib/t/Util.pm b/t/lib/t/Util.pm index b1312f5..7309442 100644 --- a/t/lib/t/Util.pm +++ b/t/lib/t/Util.pm @@ -44,10 +44,10 @@ sub run_bin { local @ARGV = @_; my ($stdout, $stderr, $exit) = capture { my $exit; - #<<< # in order to simulate calling the program at the command # line, convert exceptions into what happens when an ordinary # perl script, invoked from the command line, calls 'die' + #<<< try { $exit = $bin->main; } catch { -- cgit v1.2.3