From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 21 Sep 2020 22:34:49 +0000 (-0700)
Subject: removed remnant check on an EVAL_ERROR for a deleted eval
X-Git-Tag: 20201001~20
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=51178ef64b2257617c53a090ab207c60d88b65b5;p=perltidy.git

removed remnant check on an EVAL_ERROR for a deleted eval
---

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);