/[Frey]/trunk/bin/dbic-generate-schema.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/dbic-generate-schema.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1019 by dpavlin, Sun Jan 25 12:57:28 2009 UTC revision 1020 by dpavlin, Mon Jan 26 14:51:11 2009 UTC
# Line 9  die "usage: $0 'DBI:mysql:database=reblo Line 9  die "usage: $0 'DBI:mysql:database=reblo
9    
10  my ( $dsn, $name ) = @ARGV;  my ( $dsn, $name ) = @ARGV;
11    
12    $name .= '::Schema' unless $name =~ m{::};
13    
14  make_schema_at(  make_schema_at(
15          $name, {          $name, {
16                  debug => 1,                  debug => 1,
# Line 21  make_schema_at( Line 23  make_schema_at(
23                  '',                  '',
24          ]          ]
25  );  );
26    
27    my $path = "lib/$name";
28    $path =~ s{::}{/};
29    
30    system "svk add $path*";
Legend:
Removed from v.1019  
changed lines
  Added in v.1020
  ViewVC Help
Powered by ViewVC 1.1.26