http://qs321.pair.com?node_id=147201


in reply to Re: Answer: How do I get the directory containing a given file?
in thread How do I get the directory containing a given file?

It appears that Cwd::abs_path has issues in 5.6.1 (which seem to be fixed in bleedperl). You can get around this by reversing the calls:

use Cwd qw(abs_path); use File::Basename; my $dir = abs_path(dirname($file));