You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2005/09/27 02:41:44 UTC
svn commit: r291801 - /perl/modperl/trunk/t/lib/TestCommon/LogDiff.pm
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,