view release on metacpan or  search on metacpan

lib/ARGV/Abs.pm  view on Meta::CPAN

sub import
{
    # Base directory for resolving paths
    my $base = $_[1];
    unless (defined $base) {
        require Cwd;
        $base = Cwd::getcwd();
    }
    @ARGV = map { File::Spec->rel2abs($_, $base) } @ARGV;
}

1;

=head1 NAME

ARGV::Abs - Transform paths in @ARGV to absolute paths

=head1 VERSION