[Bast-commits] r6574 - DBIx-Class/0.08/trunk/t/lib/DBICTest

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-09 22:19:48 +0000 (Tue, 09 Jun 2009)
New Revision: 6574

Modified:
   DBIx-Class/0.08/trunk/t/lib/DBICTest/AuthorCheck.pm
Log:
AuthorCheck fixes

Modified: DBIx-Class/0.08/trunk/t/lib/DBICTest/AuthorCheck.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICTest/AuthorCheck.pm	2009-06-09 21:55:22 UTC (rev 6573)
+++ DBIx-Class/0.08/trunk/t/lib/DBICTest/AuthorCheck.pm	2009-06-09 22:19:48 UTC (rev 6574)
@@ -84,7 +84,7 @@
 sub _find_co_root {
 
     my @mod_parts = split /::/, (__PACKAGE__ . '.pm');
-    my $rel_path = file (@mod_parts);
+    my $rel_path = join ('/', @mod_parts);  # %INC stores paths with / regardless of OS
 
     return undef unless ($INC{$rel_path});
 
@@ -93,7 +93,7 @@
     #  - do 'cd ..' as many times as necessary to get to t/lib/../..
 
     my $root = dir ($INC{$rel_path});
-    for (0 .. @mod_parts + 1) {
+    for (1 .. @mod_parts + 2) {
         $root = $root->parent;
     }