Changeset 24697

Show
Ignore:
Timestamp:
11/23/08 22:09:31 (7 weeks ago)
Author:
nekokak
Message:

微調整

Location:
lang/perl/DBIx-Skinny/trunk/lib/DBIx
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/DBIx-Skinny/trunk/lib/DBIx/Skinny.pm

    r24692 r24697  
    4646sub _setup_dbd { 
    4747    my $class = shift; 
    48     (my $dbd_type = $class->dsn) =~ s/^dbi:(\w*):/$1/; 
     48    (my $dbd_type = $class->dsn) =~ s/^dbi:(\w*):.+/$1/; 
    4949    $class->dbd(DBIx::Skinny::DBD->new($dbd_type)); 
    5050} 

  • lang/perl/DBIx-Skinny/trunk/lib/DBIx/Skinny/Table.pm

    r21337 r24697  
    1818} 
    1919 
    20 __PACKAGE__->mk_classdata($_) for qw/_inflate pk/; 
     20__PACKAGE__->mk_classdata($_) for qw/pk/; 
     21__PACKAGE__->mk_classdata(_inflate => {}); 
    2122__PACKAGE__->mk_classdata(columns => []); 
    2223__PACKAGE__->mk_classdata(_utf8_columns => {});