From 51178ef64b2257617c53a090ab207c60d88b65b5 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 21 Sep 2020 15:34:49 -0700
Subject: [PATCH] removed remnant check on an EVAL_ERROR for a deleted eval

---
 lib/Perl/Tidy.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 7673b0b4..792dd77e 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -878,8 +878,7 @@ EOM
                     if ( $input_file =~ /^\'(.+)\'$/ ) { $input_file = $1 }
                     if ( $input_file =~ /^\"(.+)\"$/ ) { $input_file = $1 }
                     my $pattern = fileglob_to_re($input_file);
-                    ##eval "/$pattern/";
-                    if ( !$@ && opendir( DIR, './' ) ) {
+                    if ( opendir( DIR, './' ) ) {
                         my @files =
                           grep { /$pattern/ && !-d $_ } readdir(DIR);
                         closedir(DIR);
-- 
2.39.5