use File::Path;
sub main {
- my @args = @_;
+ while (defined(my $arg = <>)) {
+ chomp $arg;
- foreach my $arg (@args) {
- 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);
}
}
-main(@ARGV);
+main();