Changeset 2989

Show
Ignore:
Timestamp:
08/27/08 00:57:28 (3 months ago)
Author:
bchoate
Message:

Fixed typo in regex.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lib/MT/ObjectDriverFactory.pm

    r2988 r2989  
    4343        foreach my $driver ( %$all_drivers ) { 
    4444            if ( my $re = $all_drivers->{$driver}{match} ) { 
    45                 if ( (lc $type) =~ m/^re$/ ) { 
     45                if ( (lc $type) =~ m/^$re$/ ) { 
    4646                    $class = $all_drivers->{$driver}{config_package}; 
    4747                    last; 
    …… 
    5151    } 
    5252    $class ||= $type; 
    53     die "Unsupported driver :" unless $class; 
     53    die "Unsupported driver $type" unless $class; 
    5454    $class = 'MT::ObjectDriver::Driver::DBD::' . $class 
    5555        unless $class =~ m/::/;