From 078ee3b7156760a266d2355e9f63a595208e02f4 Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Wed, 2 Sep 2020 21:29:11 +0530
Subject: Fix logical error

There are still issues with this, for example the user can't pass
``documents/text.txt'' or anything in sub-directory.
---
 leo.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/leo.pl b/leo.pl
index c2cbff5..054b9a1 100755
--- a/leo.pl
+++ b/leo.pl
@@ -49,11 +49,13 @@ foreach my $arg ( @ARGV ) {
         backup("$backup_dir/${arg}.tar", $profile{$arg}->@*);
 
         $options{encrypt} = $tmp if $prof eq "journal";
-    } elsif ( -e $ENV{HOME}/$arg ) {
+    } elsif ( -e $arg ) {
         # If the file/directory exist then create a new profile & run
         # backup.
         say "++++++++********++++++++";
-        backup("$backup_dir/${arg}.tar", $arg);
+        backup("$backup_dir/${arg}.tar",
+               # backup() is expecting path relative to $ENV{HOME}.
+               path($arg)->relative($ENV{HOME}));
     } else {
         warn "[WARN] leo: no such profile :: `$arg' \n";
     }
-- 
cgit 1.4.1-2-gfad0