From 4c88b1075addfa92b4539bf807a34e8474e1421b Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 18 Oct 2010 21:26:15 +0200
Subject: checklinks: Avoid ..// in BC symlinks

---
 bin/checklinks | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/checklinks b/bin/checklinks
index 29d676b..0a522b1 100755
--- a/bin/checklinks
+++ b/bin/checklinks
@@ -186,7 +186,7 @@ foreach my $key (keys %substitute) {
 
 	my $path = $substitute{$key};
 
-	$path =~ s/ ^ $ENV{HOME}//x;
+	$path =~ s{ ^ $ENV{HOME} /}{}x;
 
 	$bc_subst{$key} = $path;
 
-- 
cgit v1.2.3