[Bast-commits] r9191 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage

[rbuels at dev.catalyst.perl.org]

Author: rbuels
Date: 2010-04-20 20:20:06 +0100 (Tue, 20 Apr 2010)
New Revision: 9191

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
Log:
do not croak, rbuels!  jeez.

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2010-04-20 19:12:22 UTC (rev 9190)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2010-04-20 19:20:06 UTC (rev 9191)
@@ -2338,7 +2338,7 @@
     $dir = './';
   } else {
       -d $dir or File::Path::mkpath($dir)
-          or croak "create_ddl_dir: could not create dir '$dir'";
+          or $self->throw_exception("create_ddl_dir: $! creating dir '$dir'");
   }
 
   $self->throw_exception ("Directory '$dir' does not exist\n") unless(-d $dir);