Fix: 2494691 - Add error check

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index ddff466b9a0a085e1f5769fdfb7fdaaa5735ad36..505b0f1936103cff9bc9202be6f6fcd255ab4c82 100644 (file)
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -17207,7 +17207,12 @@ if ($Debug) {
 "Scan for last history files into DirData='$DirData' with mask='$datemask'"
        );
 }
-opendir( DIR, "$DirData" );
+
+my $retval = opendir( DIR, "$DirData" );
+if(! $retval) 
+{
+    error( "Failed to open directory $DirData : $!");
+}
 my $regfilesuffix = quotemeta($FileSuffix);
 foreach ( grep /^$PROG$datemask$regfilesuffix\.txt(|\.gz)$/i,
        file_filt sort readdir DIR )