Item413: misinterpreted a piece of code perlciritc noticed; a good re…

…ason for perlcritic

git-svn-id: http://svn.foswiki.org/trunk@1500 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

core/lib/Foswiki/UI/Statistics.pm

@@ -105,7 +105,7 @@ sub statistics {
       or throw Error::Simple( 'Cannot backup log file: ' . $! );
 
     my $TMPFILE = new IO::File;
-    open( $TMPFILE, '>', $tmpFilename )
+    open( $TMPFILE, '<', $tmpFilename )
       or throw Error::Simple( 'Cannot open backup file: ' . $! );
 
     # Do a single data collection pass on the temporary copy of logfile,