Bug #46422 for File-Path: eval {mkpath("/ggg"} ; seems to not set $@

Wed May 27 16:41:53 2009 warren.l.dodge [...] tek.com - Ticket created

Subject:	eval {mkpath("/ggg"} ; seems to not set $@
MIME-Version:	1.0
X-Mailer:	MIME-tools 5.427 (Entity 5.427)
Content-Type:	text/plain
Charset:	utf8
Content-Disposition:	inline
Content-Transfer-Encoding:	binary
X-RT-Original-Encoding:	utf-8
Content-Length:	637

I downloaded and instaslled the 2.07 version into perl-5.10.0 I am using File::Path on a gnu/linux Redhat 4 system. I see when I make a path that is illegal using the eval trapping it doesn't seem to do what the man page says it does. Am I missing something? I hope you can help with this. Thanks. perl5.10.0 -dw ^d DB<1> use File::Path DB<2> eval { mkpath("/y/u/i") }; DB<3> x $@ 0 '' DB<4> mkpath("/y/t/r/e") mkdir /y: Permission denied at (eval 43)[/tools/wdtgnu/perl-5.8.5/lib/5.8.5/perl5db.pl:620] line 2 DB<5> q mkdir /y/u/i mkdir: cannot create directory `/y/u/i': No such file or directory

Thu May 28 04:15:06 2009 dland [...] cpan.org - Correspondence added 10 minutes

MIME-Version:	1.0
X-Mailer:	MIME-tools 5.427 (Entity 5.427)
Content-Disposition:	inline
Charset:	utf8
Content-Type:	text/plain
Message-ID:	<rt-3.6.HEAD-19052-1243498506-460.46422-0-0@rt.cpan.org>
Content-Transfer-Encoding:	binary
X-RT-Original-Encoding:	utf-8
Content-Length:	1202

On Wed May 27 16:41:53 2009, warrendodge wrote:

Show quoted text

> I downloaded and instaslled the 2.07 version into perl-5.10.0 > > I am using File::Path on a gnu/linux Redhat 4 system. I see when I make > a path that is illegal using the eval trapping it doesn't seem to do > what the man page says it does. > > Am I missing something?

Yes, mkpath() never dies. That would be drastic, to say the least! The traditional interface of mk_path() simply spewed out a message to stderr. Since that is not always very helpful, the new interface captures all the errors that may occur, and stores them in an error variable that you may process as you see fit. % perl -MFile::Path -e 'mkpath("/a/b/c", 0)' mkdir /a: Permission denied at -e line 1 % perl -MData::Dumper -MFile::Path -e 'File::Path::make_path("/a/b/c", {error=>\my $e}); print Dumper($e)' $VAR1 = [ { '/a' => 'Permission denied' }, { '/a/b' => 'No such file or directory' }, { '/a/b/c' => 'No such file or directory' } ];

Show quoted text

> I hope you can help with this. Thanks.

Hope that clears up the matter for you. Thanks for writing, regards, David Landgren

Thu May 28 04:15:08 2009 The RT System itself - Status changed from 'new' to 'open'

Thu May 28 04:15:10 2009 dland [...] cpan.org - Status changed from 'open' to 'resolved'

Thu May 28 04:15:14 2009 dland [...] cpan.org - Given to dland [...] cpan.org