sub sameDirectory {  
  my ($s,$d) = @_;
  -d $s and $s = abs_path($s) or return -1 ;
  -d $d and $d = abs_path($d) or return -1 ;
  $s eq $d ? 1 : 0 ;
}