Author: stas
Date: Mon Sep 26 17:41:42 2005
New Revision: 291801
URL: http://svn.apache.org/viewcvs?rev=291801&view=rev
Log:
add strict, fix bug
Modified:
perl/modperl/trunk/t/lib/TestCommon/LogDiff.pm
Modified: perl/modperl/trunk/t/lib/TestCommon/LogDiff.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/lib/TestCommon/LogDiff.pm?rev=291801&r1=291800&r2=291801&view=diff
==============================================================================
--- perl/modperl/trunk/t/lib/TestCommon/LogDiff.pm (original)
+++ perl/modperl/trunk/t/lib/TestCommon/LogDiff.pm Mon Sep 26 17:41:42 2005
@@ -1,5 +1,8 @@
package TestCommon::LogDiff;
+use strict;
+use warnings FATAL => 'all';
+
use POSIX ();
sub new {
@@ -8,7 +11,7 @@
open my $fh, "<$path" or die "Can't open $path: $!";
seek $fh, 0, POSIX::SEEK_END();
- $pos = tell $fh;
+ my $pos = tell $fh;
my %self = (
path => $path,
