Merge pull request #430 from basiliscos/develop

Fix RT#98579 (test failure with HOME=/)
gugod · Dec 10, 2014 · b16d419 · b16d419
2 parents 818ed7d + cb9dedc
commit b16d419
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/App/perlbrew.pm b/lib/App/perlbrew.pm
@@ -443,7 +443,7 @@ sub env {
 sub path_with_tilde {
     my ($self, $dir) = @_;
     my $home = $self->env('HOME');
-    $dir =~ s/^\Q$home\E/~/ if $home;
+    $dir =~ s!\Q$home/\E!~/! if $home;
     return $dir;
 }