From e7b60af17e46b48c55572d2e19d9e5d7037abe35 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sat, 14 Jun 2008 12:09:33 +0200
Subject: bin/removelinks: oops. made it work

---
 bin/removelinks | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'bin')

diff --git a/bin/removelinks b/bin/removelinks
index c5e80c1..87d5c5f 100755
--- a/bin/removelinks
+++ b/bin/removelinks
@@ -15,9 +15,10 @@ closedir(BIN);
 foreach(@binaries) {
 	next if $_ eq '.';
 	next if $_ eq '..';
+	$_ = "$home/bin/$_";
 	next unless (-l);
 	if ((split(/\//, readlink))[2] eq $package) {
-		unlink("$home/bin/$_");
+		unlink;
 		print "Removed $_\n" if $verbose;
 	}
 }
-- 
cgit v1.2.3