switch from eval { } to ->can('finish_formatting')

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 560da15c0ade494babf5a7e4eba665873d01e184..7673b0b4698bf8c7d28d1b59ec94d3bfc6adb90e 100644 (file)
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -4307,7 +4307,11 @@ sub process_this_file {
         $formatter->write_line($line);
     }
     my $severe_error = $tokenizer->report_tokenization_errors();
-    eval { $formatter->finish_formatting($severe_error) };
+
+    # user-defined formatters are possible, and may not have a
+    # sub 'finish_formatting', so we have to check
+    $formatter->finish_formatting($severe_error)
+      if $formatter->can('finish_formatting');
 
     return;
 }