removed removelinks which is now obsolete

1 files changed, 0 insertions, 24 deletions

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;
-	}
-}