From 997864a00490b1cab063d141d29c556d38a3fe79 Mon Sep 17 00:00:00 2001 From: CrawfordCurrie Date: Sun, 21 Dec 2008 23:10:01 +0000 Subject: [PATCH] Item413: misinterpreted a piece of code perlciritc noticed; a good reason for perlcritic git-svn-id: http://svn.foswiki.org/trunk@1500 0b4bb1d4-4e5a-0410-9cc4-b2b747904278 --- core/lib/Foswiki/UI/Statistics.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/lib/Foswiki/UI/Statistics.pm b/core/lib/Foswiki/UI/Statistics.pm index bfa136669a..dabeaec5f5 100644 --- a/core/lib/Foswiki/UI/Statistics.pm +++ b/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,