--- trunk/lib/Frey/INC.pm	2009/06/29 18:50:27	1116
+++ trunk/lib/Frey/INC.pm	2009/06/29 18:52:50	1117
@@ -23,11 +23,12 @@
 
 	my $inc;
 	map {
-		s{.pm$}{};
 		my $class = $_;
-		s[/][}->{]g;
+		my $path = $_;
+		$path =~ s{.pm$}{};
+		$path =~ s[/][}->{]g;
 		$class =~ s[/][::]g;
-		eval '$inc->{' . $_ . '} = $class';
+		eval '$inc->{' . $path . '} = $class'; ## no critic
 	} sort keys %INC;
 
 	$html = dump( $inc );