# ----------------------------------------------------------------------------
-sub rel2abs {
- if ( File::Spec->file_name_is_absolute($_[0]) ) {
- return $_[0];
- } else {
- return File::Spec->catdir(cwd, $_[0]);
- }
-}
-
# -------------------------------------
# PACKAGE CONSTANTS
# -------------------------------------