steve 2005/06/30 11:12:42 BST
Modified files:
exim-src/src eximstats.src
Log:
Tidied up some eval()ed code and removed a duplicate pattern match.
Revision Changes Path
1.10 +4 -4 exim/exim-src/src/eximstats.src
Index: eximstats.src
===================================================================
RCS file: /home/cvs/exim/exim-src/src/eximstats.src,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- eximstats.src 30 Jun 2005 09:59:34 -0000 1.9
+++ eximstats.src 30 Jun 2005 10:12:42 -0000 1.10
@@ -1,5 +1,5 @@
#!PERL_COMMAND -w
-# $Cambridge: exim/exim-src/src/eximstats.src,v 1.9 2005/06/30 09:59:34 steve Exp $
+# $Cambridge: exim/exim-src/src/eximstats.src,v 1.10 2005/06/30 10:12:42 steve Exp $
# Copyright (c) 2001 University of Cambridge.
# See the file NOTICE for conditions of use and distribution.
@@ -1769,10 +1769,10 @@
my $user_pattern_index = 0;
foreach (@user_patterns) {
$user_pattern_totals[$user_pattern_index] = 0;
- $parser .= " if ($_) {\n";
- $parser .= " \$user_pattern_totals[$user_pattern_index]++ if $_;\n";
- $parser .= " \$user_pattern_interval_count[$user_pattern_index][(\$m_hour*60 + \$m_min)/$hist_interval]++;\n" if ($hist_opt > 0);
- $parser .= " }\n";
+ $parser .= " if ($_) {\n";
+ $parser .= " \$user_pattern_totals[$user_pattern_index]++;\n";
+ $parser .= " \$user_pattern_interval_count[$user_pattern_index][(\$m_hour*60 + \$m_min)/$hist_interval]++;\n" if ($hist_opt > 0);
+ $parser .= " }\n";
$user_pattern_index++;
}
