handle relative paths as argument for the -a option

2007-03-25 12:50:28 +00:00
parent 08ae9d5089
commit b0490f792a
1 changed files with 2 additions and 1 deletions
@@ -4,6 +4,7 @@
 use Cwd;
 use File::Find;
 use Getopt::Std;
+use File::Spec;

 sub usage() {
    print STDERR<<"EOF";
@@ -529,7 +530,7 @@ if ($::opt_r){
  die "\n";
 }
 if ($::opt_a){
-  $ALLPACKAGESDIR = $::opt_a;
+  $ALLPACKAGESDIR = File::Spec->rel2abs( $::opt_a ) ;
 }
 if ($::opt_l){
  $LOCKFILE = $::opt_l;