From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 6 Oct 2009 14:58:31 +0000 (+0200)
Subject: sort @files once, outside the loop.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cc4c9faad0767bbb62e32c96638b5ce02dde234e;p=p5sagit%2Fp5-mst-13.2.git

sort @files once, outside the loop.
---

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