386             $wdir = $1;
 387             $wdir = File::Spec->catfile($cdir, $wdir);