Changeset 31542

Show
Ignore:
Timestamp:
03/25/09 16:58:35 (12 months ago)
Author:
dankogai
Message:

no $&, please!

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Encode/trunk/lib/Encode/MIME/Header.pm

    r30121 r31542  
    176176    $chunk = encode_utf8($chunk); 
    177177    $chunk =~ s{ 
    178             [^0-9A-Za-z] 
     178           ([^0-9A-Za-z]) 
    179179       }{ 
    180             join("" => map {sprintf "=%02X", $_} unpack("C*", $&)) 
     180            join("" => map {sprintf "=%02X", $_} unpack("C*", $1)) 
    181181       }egox; 
    182182    return HEAD . 'Q?' . $chunk . TAIL;