Get tests working under `prove -lrswTj10`

[p5sagit/Class-Accessor-Grouped.git] / t / accessors_pp.t

diff --git a/t/accessors_pp.t b/t/accessors_pp.t
index de43239..b3cb9cc 100644 (file)
--- a/t/accessors_pp.t
+++ b/t/accessors_pp.t
@@ -40,7 +40,7 @@ for my $tname (qw/accessors.t accessors_ro.t accessors_wo.t/) {
   my $todo = sub {
     note "\nTesting $tname without Sub::Name (pass @{[ $pass ++ ]})\n\n";
 
-    my $tfn = catfile($Bin, $tname);
+    my ($tfn) = catfile($Bin, $tname) =~ /(.+)/;
 
     delete $INC{$_} for (
       qw/AccessorGroups.pm AccessorGroupsRO.pm AccessorGroupsSubclass.pm AccessorGroupsParent.pm AccessorGroupsWO.pm/,