diff options
-rw-r--r-- | t/lib/t/Util.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 { |