[Bps-public-commit] r19046 - Shipwright/trunk/t

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Apr  5 02:03:01 2009
New Revision: 19046

Modified:
   Shipwright/trunk/t/00.load.t

Log:
mv CleanINC module to the last

Modified: Shipwright/trunk/t/00.load.t
==============================================================================
--- Shipwright/trunk/t/00.load.t	(original)
+++ Shipwright/trunk/t/00.load.t	Sun Apr  5 02:03:01 2009
@@ -9,6 +9,9 @@
 my @pms = map { s|^lib/||; chomp; $_ } grep { m|^lib/.*pm$| } <FH>;
 
 plan tests => scalar @pms;
+my @tmp;
+ at pms = grep { /CleanINC/ ? ( ( push @tmp, $_) && undef ) : $_} @pms;
+push @pms, @tmp;
 for my $pm (@pms) {
     $pm =~ s|\.pm$||;
     $pm =~ s|/|::|g;