Changeset 2895

Show
Ignore:
Timestamp:
08/06/08 04:27:55 (4 months ago)
Author:
fumiakiy
Message:

Params must be a list, not reference to an array.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/release-42/lib/MT/App.pm

    r2890 r2895  
    863863            } 
    864864        } 
    865         $app->param( $_, $params{ $_ } ) foreach keys %params; 
     865        while ( my ( $key, $val ) = each %params ) { 
     866            if ( ref $val ) { 
     867                $app->param( $key, @{ $params{ $key } } ) ; 
     868            } 
     869            else { 
     870                $app->param( $key, $val ); 
     871            } 
     872        } 
    866873 
    867874        return 1;