summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/removelinks24
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;
- }
-}