Some change to add a warning if logresolvemerge.pl is used with ActiveState.

diff --git a/tools/logresolvemerge.pl b/tools/logresolvemerge.pl
index 93fe3289c63e26e1bc4ce64b9278e00b59899d04..76863157c4dc0bfe010a3b6391b3f490a8badd2d 100644 (file)
--- a/tools/logresolvemerge.pl
+++ b/tools/logresolvemerge.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #-----------------------------------------------------------------------------
-# Merge several log files into one and replace all IP addresses
-# with resolved DNS host name.
+# Allows you to get one unique output log file, sorted on date,
+# built from particular sources.
 # This tool is part of AWStats log analyzer but can be use
 # alone for any other log analyzer.
 # See COPYING.TXT file about AWStats GNU General Public License.
@@ -268,6 +268,12 @@ if ($] < 5.008 && $MaxNbOfThread) {
        error("Multi-threaded DNS lookup is only supported with Perl 5.8 or higher (not $]). Use -dnslookup option instead");
 }
 
+# Warning, there is a memory hole in ActiveState perl version (in delete functions)
+if ($^X =~ /activestate/i || $^X =~ /activeperl/i) {
+       # TODO Add a warning
+
+}
+
 if (scalar @ParamFile == 0) {
        print "----- $PROG $VERSION (c) Laurent Destailleur -----\n";
        print "$PROG allows you to get one unique output log file, sorted on date,\n";