Changeset 2012

Show
Ignore:
Timestamp:
10/08/06 06:00:04
Author:
miyagawa
Message:

add random attack test. Fixed error when Cmeta tag is not found

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • HTTP-Response-Charset/trunk/lib/HTTP/Response/Charset.pm

    r2011 r2012  
    5353 
    5454        my @ct = HTTP::Headers::Util::split_header_words($parser->header('Content-Type')); 
    55         my(undef, undef, %ct_param) = @{$ct[0]}; 
     55        my(undef, undef, %ct_param) = @{$ct[0] || []}; 
    5656        if ($ct_param{charset}) { 
    5757            return $ct_param{charset};