sort @files once, outside the loop.
authorNicholas Clark <nick@ccl4.org>
Tue, 6 Oct 2009 14:58:31 +0000 (16:58 +0200)
committerNicholas Clark <nick@ccl4.org>
Tue, 6 Oct 2009 14:58:31 +0000 (16:58 +0200)
t/porting/podcheck.t

index 4dde790..c999caa 100644 (file)
@@ -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) = @_;