perl function grep -f seems to be bugged so i deleted it (useless) to avoid problem.

diff --git a/awstats.pl b/awstats.pl
index e7ed8cdb24a49c556c22ab7115939895927f65e8..ad9726f932e6ba6251ca3bd6dc03f2208ed76001 100644 (file)
--- a/awstats.pl
+++ b/awstats.pl
@@ -1538,7 +1538,7 @@ if (($YearRequired == $nowyear) && ($MonthRequired eq "year" || $MonthRequired =
 
        # Search last file
        opendir(DIR,"$DirData");
-       @filearray = sort grep -f, readdir DIR;
+       @filearray = sort readdir DIR;
        close DIR;
        $yearmonthchoosed=0;
        foreach $i (0..$#filearray) {
@@ -1928,7 +1928,7 @@ if (($YearRequired == $nowyear) && ($MonthRequired eq "year" || $MonthRequired =
        # Rename all HISTORYTMP files into HISTORYTXT
        $allok=1;
        opendir(DIR,"$DirData");
-       @filearray = sort grep -f, readdir DIR;
+       @filearray = sort readdir DIR;
        close DIR;
        foreach $i (0..$#filearray) {
                if ("$filearray[$i]" =~ /^$PROG[\d][\d][\d][\d][\d][\d]$FileSuffix\.tmp\..*$/) {
@@ -1954,7 +1954,7 @@ if (($YearRequired == $nowyear) && ($MonthRequired eq "year" || $MonthRequired =
 
 # Get list of all possible years
 opendir(DIR,"$DirData");
-@filearray = sort grep -f, readdir DIR;
+@filearray = sort readdir DIR;
 close DIR;
 foreach $i (0..$#filearray) {
        if ("$filearray[$i]" =~ /^$PROG[\d][\d][\d][\d][\d][\d]$FileSuffix\.txt$/) {