Tidied up some eval()ed code and removed a duplicate pattern match.
authorSteve Campbell <steve@computurn.com>
Thu, 30 Jun 2005 10:12:42 +0000 (10:12 +0000)
committerSteve Campbell <steve@computurn.com>
Thu, 30 Jun 2005 10:12:42 +0000 (10:12 +0000)
src/src/eximstats.src

index 015fc58..080bf17 100644 (file)
@@ -1,5 +1,5 @@
 #!PERL_COMMAND -w
-# $Cambridge: exim/src/src/eximstats.src,v 1.9 2005/06/30 09:59:34 steve Exp $
+# $Cambridge: 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 @@ sub generate_parser {
   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++;
   }