while (defined(my $arg = <>)) {
chomp $arg;
- my $rel = File::Spec->abs2rel($arg, $ENV{HOME});
+ my $rel = File::Spec->file_name_is_absolute($arg)
+ ? File::Spec->abs2rel($arg, $ENV{HOME})
+ : $arg;
my $abs = File::Spec->rel2abs($rel, $ENV{HOME});
my $saved = rel2saved($rel);