[svn:parrot] r30178 - trunk/t/configure

[jkeenan]

Author: jkeenan
Date: Mon Aug 11 19:38:30 2008
New Revision: 30178

Modified:
   trunk/t/configure/036-config_steps.t

Log:
Temporary fix for problem reported in
http://rt.perl.org/rt3/Ticket/Display.html?id=57826.  Try to require only the
top-level of configuration step classes, not those farther down that are
OS-specific.


Modified: trunk/t/configure/036-config_steps.t
==============================================================================
--- trunk/t/configure/036-config_steps.t        (original)
+++ trunk/t/configure/036-config_steps.t        Mon Aug 11 19:38:30 2008
@@ -25,10 +25,10 @@
 =cut
 
 my @steps;
-sub wanted { $File::Find::name =~ m{^config\/(.*)\.pm\z}s &&
+sub wanted { $File::Find::name =~
+    m{^config\/(init|inter|auto|gen)\/(\w+)\.pm} &&
     do {
-        my $mod = $1;
-        my $class = join '::', ( split /\//, $mod );
+        my $class = join '::', ( $1, $2 );
         push @steps, $class;
     };
 }