Filter::Util::Call update to 1.05, from Paul Marquess.

p4raw-id: //depot/perl@8851

diff --git a/ext/Filter/Util/Call/Call.pm b/ext/Filter/Util/Call/Call.pm
index 694b1b3..1936bbe 100644 (file)
--- a/ext/Filter/Util/Call/Call.pm
+++ b/ext/Filter/Util/Call/Call.pm
@@ -5,11 +5,12 @@ require DynaLoader;
 require Exporter;
 use Carp ;
 use strict;
+use warnings;
 use vars qw($VERSION @ISA @EXPORT) ;
 
 @ISA = qw(Exporter DynaLoader);
 @EXPORT = qw( filter_add filter_del filter_read filter_read_exact) ;
-$VERSION = "1.04" ;
+$VERSION = "1.05" ;
 
 sub filter_read_exact($)
 {

diff --git a/t/lib/filter-util.pl b/t/lib/filter-util.pl
index 9b29c5e..824924b 100644 (file)
--- a/t/lib/filter-util.pl
+++ b/t/lib/filter-util.pl
@@ -1,3 +1,9 @@
+
+use strict ;
+use warnings;
+
+use vars qw( $Perl $Inc);
+
 sub readFile
 {
     my ($filename) = @_ ;

diff --git a/t/lib/filter-util.t b/t/lib/filter-util.t
index 80c8f56..4c40463 100644 (file)
--- a/t/lib/filter-util.t
+++ b/t/lib/filter-util.t
@@ -10,24 +10,28 @@ BEGIN {
     require 'lib/filter-util.pl';
 }
 
+use strict;
+use warnings;
+
+use vars qw($Inc $Perl);
+
 print "1..28\n" ;
 
 $Perl = "$Perl -w" ;
 
 use Cwd ;
-$here = getcwd ;
+my $here = getcwd ;
 
-use vars qw($Inc $Perl);
 
-$filename = "call.tst" ;
-$filenamebin = "call.bin" ;
-$module   = "MyTest" ;
-$module2  = "MyTest2" ;
-$module3  = "MyTest3" ;
-$module4  = "MyTest4" ;
-$module5  = "MyTest5" ;
-$nested   = "nested" ;
-$block   = "block" ;
+my $filename = "call.tst" ;
+my $filenamebin = "call.bin" ;
+my $module   = "MyTest" ;
+my $module2  = "MyTest2" ;
+my $module3  = "MyTest3" ;
+my $module4  = "MyTest4" ;
+my $module5  = "MyTest5" ;
+my $nested   = "nested" ;
+my $block   = "block" ;
 
 # Test error cases
 ##################
@@ -45,7 +49,7 @@ sub import { filter_add(bless []) }
 1 ;
 EOM
  
-$a = `$Perl "-I." $Inc -e "use ${module} ;"  2>&1` ;
+my $a = `$Perl "-I." $Inc -e "use ${module} ;"  2>&1` ;
 ok(1, (($? >>8) != 0 or ($^O eq 'MSWin32' && $? != 0))) ;
 ok(2, $a =~ /^Can't locate object method "filter" via package "MyTest"/) ;
  
@@ -495,7 +499,7 @@ sub filter
 1 ;
 EOM
 
-$string = <<'EOM' ;
+my $string = <<'EOM' ;
 print "hello mum\n" ;
 $x = 'me ' x 3 ;
 print "Who wants it?\n$x\n" ;