Changeset 18


Ignore:
Timestamp:
Jun 6, 2004, 7:08:41 PM (17 years ago)
Author:
kake
Message:

Make ->_get_args a little more careful.

Location:
cgi-wiki/trunk/lib/CGI/Wiki/Setup
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • cgi-wiki/trunk/lib/CGI/Wiki/Setup/MySQL.pm

    r2 r18  
    163163
    164164sub _get_args {
    165     if ( ref $_[0] ) {
     165    if ( ref $_[0] and ref $_[0] eq 'HASH' ) {
    166166        my %hash = %{$_[0]};
    167167        return @hash{ qw( dbname dbuser dbpass dbhost ) };
  • cgi-wiki/trunk/lib/CGI/Wiki/Setup/Pg.pm

    r2 r18  
    176176
    177177sub _get_args {
    178     if ( ref $_[0] ) {
     178    if ( ref $_[0] and ref $_[0] eq 'HASH' ) {
    179179        my %hash = %{$_[0]};
    180180        return @hash{ qw( dbname dbuser dbpass dbhost ) };
  • cgi-wiki/trunk/lib/CGI/Wiki/Setup/SQLite.pm

    r2 r18  
    155155sub _get_args {
    156156    my @args;
    157     if ( ref $_[0] ) {
     157    if ( ref $_[0] and ref $_[0] eq 'HASH' ) {
    158158        my %hash = %{$_[0]};
    159159        @args = @hash{ qw( dbname ) };
Note: See TracChangeset for help on using the changeset viewer.