[Catalyst-commits] r9356 - in trunk/Catalyst-Example-InstantCRUD: lib/Catalyst/Example script

[zby at dev.catalyst.perl.org]

Author: zby
Date: 2009-02-20 07:00:07 +0000 (Fri, 20 Feb 2009)
New Revision: 9356

Modified:
   trunk/Catalyst-Example-InstantCRUD/lib/Catalyst/Example/InstantCRUD.pm
   trunk/Catalyst-Example-InstantCRUD/script/instantcrud.pl
Log:
some debugging info

Modified: trunk/Catalyst-Example-InstantCRUD/lib/Catalyst/Example/InstantCRUD.pm
===================================================================
--- trunk/Catalyst-Example-InstantCRUD/lib/Catalyst/Example/InstantCRUD.pm	2009-02-20 00:24:43 UTC (rev 9355)
+++ trunk/Catalyst-Example-InstantCRUD/lib/Catalyst/Example/InstantCRUD.pm	2009-02-20 07:00:07 UTC (rev 9356)
@@ -1,6 +1,6 @@
 package Catalyst::Example::InstantCRUD;
 
-use version; $VERSION = qv('0.0.27');
+use version; $VERSION = qv('0.0.28');
 
 use warnings;
 use strict;

Modified: trunk/Catalyst-Example-InstantCRUD/script/instantcrud.pl
===================================================================
--- trunk/Catalyst-Example-InstantCRUD/script/instantcrud.pl	2009-02-20 00:24:43 UTC (rev 9355)
+++ trunk/Catalyst-Example-InstantCRUD/script/instantcrud.pl	2009-02-20 07:00:07 UTC (rev 9356)
@@ -83,7 +83,7 @@
     $db_file =~ s/::/_/g;
     $db_file = file( $appdir, $db_file )->absolute->stringify;
     create_example_db( $db_file );
-    print "Database created at $db_file\n";
+    warn "Database created at $db_file\n";
     $dsn = "dbi:SQLite:dbname=$db_file";
 }
 
@@ -93,7 +93,7 @@
     $appname . '::' . $schema_name,
     { 
 #        debug => 1, 
-        dump_directory => file( $appdir , 'lib')->stringify, 
+        dump_directory => dir( $appdir , 'lib')->absolute->stringify, 
         use_namespaces => 1,
         default_resultset_class => '+DBIx::Class::ResultSet::RecursiveUpdate', 
     },