equal
deleted
inserted
replaced
349 |
349 |
350 sub GetAbsDirname($;$$) |
350 sub GetAbsDirname($;$$) |
351 { |
351 { |
352 (my $dir = shift()) =~ s/^>>?(?!>)//; |
352 (my $dir = shift()) =~ s/^>>?(?!>)//; |
353 my $absdir = ""; |
353 my $absdir = ""; |
354 eval { local $SIG{__DIE__}; $absdir = Cwd::abs_path($dir) }; |
354 if (-e $dir) {$absdir = Cwd::abs_path($dir) }; |
355 return(PathConv($absdir || File::Spec->rel2abs($dir, |
355 return(PathConv($absdir || File::Spec->rel2abs($dir, |
356 $dir !~ /^$gWorkdrive/i && $dir =~ /^([a-z]:)/i ? "$1/" : ""), shift(), shift())); |
356 $dir !~ /^$gWorkdrive/i && $dir =~ /^([a-z]:)/i ? "$1/" : ""), shift(), shift())); |
357 } |
357 } |
358 |
358 |
359 sub GetAbsFname($;$$) |
359 sub GetAbsFname($;$$) |