arrays.diff

diff --git a/lib/Mojo/Home.pm b/lib/Mojo/Home.pm
index c5cf0fbe1..e46c49c8f 100644
--- a/lib/Mojo/Home.pm
+++ b/lib/Mojo/Home.pm
@@ -12,9 +12,10 @@ sub detect {

   # Location of the application class (Windows mixes backslash and slash)
   elsif ($class && (my $path = $INC{my $file = class_to_path $class})) {
-    $path =~ s!\\!/!g;
-    $path =~ s!(?:(?:^|/)b?lib)?/\Q$file\E$!!;
-    $detected = Mojo::File->new($path)->to_abs;
+    my $parts = Mojo::File->new($path)->to_array;
+    pop @$parts for 1 .. @{Mojo::File->new($file)};
+    pop @$parts if @$parts && ($parts->[-1] eq 'blib' || $parts->[-1] eq 'lib');
+    $detected = Mojo::File->new(@$parts)->to_abs;
   }

   $$self = $detected->to_string if $detected;