fix a bug for paths reading

oushujun · May 31, 2017 · d472e17 · d472e17
1 parent 7c659ce
commit d472e17
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/LTR_retriever b/LTR_retriever
@@ -177,8 +177,10 @@ while (<Path>){
 	next unless /=/;
 	chomp;
 	my ($program, $path)=(split /=/, $_, 2);
-	$path=~s/\s+?#.*$//;
+	$path=~s/(\s+)?#.*$//;
+	$path=~s/\s+//g;
 	$path="$path"."/" if $path!~/\/$/;
+	$path='' if $path eq '/';
 	$path{$program}=$path;
 	}
 close Path;