Merge pull request #214 from jonasbn/fix/1.x/critic-bareword-dirhandle

Non-bareword dir handle makes Perl::Critic happy
perl-workflow · Jan 27, 2023 · b2d7366 · b2d7366
2 parents 18bbc9b + ba6f730
commit b2d7366
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/Workflow/Persister/File.pm b/lib/Workflow/Persister/File.pm
@@ -98,11 +98,11 @@ sub fetch_history {
     my ( $self, $wf ) = @_;
     my $history_dir = $self->_get_history_path($wf);
     $self->log->debug("Trying to read history files from dir '$history_dir'");
-    opendir( HISTORY, $history_dir )
+    opendir( my $hist, $history_dir )
         || persist_error "Cannot read history from '$history_dir': $!";
     my @history_files = grep { -f $_ }
-        map { catfile( $history_dir, $_ ) } readdir HISTORY;
-    closedir HISTORY;
+        map { catfile( $history_dir, $_ ) } readdir $hist;
+    closedir $hist;
     my @histories = ();
 
     foreach my $history_file (@history_files) {