From 68d235b48ddbdb6f507dd372f9fa85e041e31fe9 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sat, 21 Jun 2008 17:59:33 +0200
Subject: removed removelinks which is now obsolete

---
 bin/removelinks | 24 ------------------------
 1 file changed, 24 deletions(-)
 delete mode 100755 bin/removelinks

diff --git a/bin/removelinks b/bin/removelinks
deleted file mode 100755
index 87d5c5f..0000000
--- a/bin/removelinks
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-
-my $i;
-my $package = shift or die('not enough arguments');
-my $verbose = 1;
-my $home = $ENV{HOME} || '/home/derf';
-my @binaries;
-
-opendir(BIN, "$home/bin");
-@binaries = readdir(BIN);
-closedir(BIN);
-
-foreach(@binaries) {
-	next if $_ eq '.';
-	next if $_ eq '..';
-	$_ = "$home/bin/$_";
-	next unless (-l);
-	if ((split(/\//, readlink))[2] eq $package) {
-		unlink;
-		print "Removed $_\n" if $verbose;
-	}
-}
-- 
cgit v1.2.3