Commits

Anonymous committed 35d384b

Added use strict and use warnings.

Comments (0)

Files changed (1)

module/lib/Devel/LineTrace.pm

 package Devel::LineTrace;
 
+use strict;
+use warnings;
+
+use vars (qw($VERSION));
 $VERSION = '0.1.5';
 
 =head1 NAME
 
 package DB;
 
+
 my (%files);
 sub BEGIN
 {
     local (*I);
     my $filename = $ENV{'PERL5DB_LT'} || "perl-line-traces.txt";
-    open I, "<$filename";
+    open I, "<", $filename
+        or return;
     my $line;
     $line = <I>;
     while($line)
     close(I);
 }
 
+use vars qw(@saved $package $filename $line $usercontext);
+
 sub DB
 {
     local @saved = ($@, $!, $^E, $,, $/, $\, $^W);