Add test for Net::protoent.

[p5sagit/p5-mst-13.2.git] / t / lib / filter-util.pl

diff --git a/t/lib/filter-util.pl b/t/lib/filter-util.pl
index 1615873..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) = @_ ;
@@ -38,7 +44,7 @@ sub ok
 
 $Inc = '' ;
 foreach (@INC)
- { $Inc .= "-I$_ " }
+ { $Inc .= "\"-I$_\" " }
 
 $Perl = '' ;
 $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;