Fix ooinstall -l case

Removing destdir prefix for dev-install case is not a good idea

1 files changed, 7 insertions, 5 deletions

diff --git a/solenv/bin/ooinstall b/solenv/bin/ooinstall
index 4afdb23d0..89aea81a6 100755
--- a/solenv/bin/ooinstall
+++ b/solenv/bin/ooinstall
@@ -28,11 +28,13 @@ for $arg (@ARGV) {
     } elsif ($arg eq '-h' || $arg eq '--help') {
 	$help = 1;
     } else {
-	# Cwd::realpath does not work if the path does not exist
-	mkpath($ENV{DESTDIR} . $arg) unless -d $ENV{DESTDIR} . $arg;
-	$path = Cwd::realpath( $ENV{DESTDIR} . $arg );
-	my $destdir = Cwd::realpath( $ENV{DESTDIR} );
-	$path =~ s|$destdir||;
+		# Cwd::realpath does not work if the path does not exist
+		mkpath($ENV{DESTDIR} . $arg) unless -d $ENV{DESTDIR} . $arg;
+		$path = Cwd::realpath( $ENV{DESTDIR} . $arg );
+		if (!$do_link) {
+			my $destdir = Cwd::realpath( $ENV{DESTDIR} );
+			$path =~ s|$destdir||;
+	    }
     }
 }