I have a block of code:

eval
{
  mkdir $DIR_LOCATION, 0777 || die "sigh";
};
if ($@)
{
    print "Never gets here to display error message.";
}
[download]

Anyone knows why this code isn't dieing correctly? (Perl version 5.005_3 for solaris)? This is not a *huge* problem (most of the time I will be creating the directory), but I would to at least log the dir wasn't created for idiot checking.
Thanks
Zak


----
Zak