diff options
Diffstat (limited to 'bin/removelinks')
| -rwxr-xr-x | bin/removelinks | 3 |
1 files changed, 2 insertions, 1 deletions
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; } } |