From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 22 May 2021 00:37:04 +0000 (-0700)
Subject: eliminate a bareword filehandle
X-Git-Tag: 20210402.01~33
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=51f30be4e7b66b1d5875d407b5b47b6e7737ad32;p=perltidy.git

eliminate a bareword filehandle
---

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index a5ab3572..d785497f 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -901,10 +901,11 @@ EOM
                     if ( $input_file =~ /^\'(.+)\'$/ ) { $input_file = $1 }
                     if ( $input_file =~ /^\"(.+)\"$/ ) { $input_file = $1 }
                     my $pattern = fileglob_to_re($input_file);
-                    if ( opendir( DIR, './' ) ) {
+                    my $dh;
+                    if ( opendir( $dh, './' ) ) {
                         my @files =
-                          grep { /$pattern/ && !-d $_ } readdir(DIR);
-                        closedir(DIR);
+                          grep { /$pattern/ && !-d $_ } readdir($dh);
+                        closedir($dh);
                         if (@files) {
                             unshift @ARGV, @files;
                             next;