sort @files once, outside the loop.

[p5sagit/p5-mst-13.2.git] / t / porting / podcheck.t

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index 2567761..c999caa 100644 (file)
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -1,8 +1,6 @@
 #!/usr/bin/perl -w
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-}
+
+require './test.pl';
 
 use strict;
 
@@ -14,8 +12,6 @@ BEGIN {
     require overload;
 };
 
-use Test::More;
-
 {
     package My::Pod::Checker;
     use strict;
@@ -53,8 +49,8 @@ while (<$m>) {
        next if $file =~ /^cpan\//;
        next unless ($file =~ /\.(?:pm|pod|pl)$/);
     push @files, $file;
-    @files = sort @files; # so we get consistent results
 };
+@files = sort @files; # so we get consistent results
 
 sub pod_ok {
     my ($filename) = @_;
@@ -63,15 +59,15 @@ sub pod_ok {
     $checker->parse_from_file($filename, undef);
     my $error_count = $checker->num_errors();
 
-    if(! ok $error_count <= 0, "POD of $filename") {
+    if(! ok($error_count <= 0, "POD of $filename")) {
         diag( "'$filename' contains POD errors" );
-        diag sprintf "%s %s: %s at line %s",
-             $_->{-severity}, $_->{-file}, $_->{-msg}, $_->{-line}
+        diag(sprintf "%s %s: %s at line %s",
+             $_->{-severity}, $_->{-file}, $_->{-msg}, $_->{-line})
             for @My::Pod::Checker::errors;
     };
 };
 
-plan tests => scalar @files;
+plan (tests => scalar @files);
 
 pod_ok $_
     for @files;