sort @files once, outside the loop.

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index 4dde790..c999caa 100644 (file)
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -49,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) = @_;