Changeset 113

Show
Ignore:
Timestamp:
07/18/05 18:11:35 (3 years ago)
Author:
ogawa
Message:

A little bug fixes.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • mt-db-convert/trunk/mt-db-convert.cgi

    • Property svn:executable set to *
    r109 r113  
    5555 
    5656# If src and dst dbspecs not given 
    57 if (!$src{ObjectDriver} || ($src{ObjectDriver} eq 'DBM' && $src{DataSource}) || 
    58     !$dst{ObjectDriver} || ($dst{ObjectDriver} eq 'DBM' && $dst{DataSource})) { 
     57if (!$src{ObjectDriver} || ($src{ObjectDriver} eq 'DBM' && !$src{DataSource}) || 
     58    !$dst{ObjectDriver} || ($dst{ObjectDriver} eq 'DBM' && !$dst{DataSource})) { 
    5959 
    6060    $src{$_} ||= $cfg->$_() foreach (@DBSPECS); 
    …… 
    130130 
    131131    require MT::Object; 
    132     my ($type) = $dst{ObjectDriver} =~ /^DBI::(.*)$/; 
     132    my $type = ($dst{ObjectDriver} =~ /^DBI::(.*)$/) ? $1 : ''; 
    133133    if ($type) { 
    134134    # set dst driver