enforce the full path requirement in 'install'

1 files changed, 6 insertions, 1 deletions

diff --git a/install b/install
index 513dd71..98d8aee 100755
--- a/install
+++ b/install
@@ -54,7 +54,12 @@ GetOptions(
 usage() if $to and $ln or $help;
 $ln = "$ENV{HOME}/bin" if defined($ln) and not $ln;
 for my $d ($ln, $to) {
-    if ($d and not -d $d) {
+    next unless $d;    # ignore empty values
+    unless ( $d =~ m(^/) ) {
+        print STDERR "FATAL: please use an absolute path, not a relative path\n";
+        usage();
+    }
+    if ( not -d $d ) {
         print STDERR "FATAL: '$d' does not exist.\n";
         usage();
     }