--- trunk/bin/dbic-generate-schema.pl	2009/01/25 12:57:28	1014
+++ trunk/bin/dbic-generate-schema.pl	2009/01/26 14:51:11	1020
@@ -9,6 +9,8 @@
 
 my ( $dsn, $name ) = @ARGV;
 
+$name .= '::Schema' unless $name =~ m{::};
+
 make_schema_at(
 	$name, {
 		debug => 1,
@@ -21,3 +23,8 @@
 		'',
 	]
 );
+
+my $path = "lib/$name";
+$path =~ s{::}{/};
+
+system "svk add $path*";