explicitly name current dir for Perl 5.26+, part II

diff --git a/perl/execreports/erprocess.pl b/perl/execreports/erprocess.pl
index 1e74640..0ccbdb0 100755 (executable)
--- a/perl/execreports/erprocess.pl
+++ b/perl/execreports/erprocess.pl
@@ -115,7 +115,7 @@ $start_date = DateTime->new(
                month=>(substr $year_month,4,2),
                day=>01)->strftime('%m/01/%Y');
                
-my %queries = do 'erqueries.pl';
+my %queries = do './erqueries.pl';
        
 if ($collect) {