Changeset 23548 for lang/perl/String-IRC

Show
Ignore:
Timestamp:
11/13/08 16:39:57 (8 weeks ago)
Author:
hirose31
Message:

0.04

Location:
lang/perl/String-IRC/trunk
Files:
6 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/String-IRC/trunk/Changes

    r21566 r23548  
    11Revision history for String-IRC 
     2 
     30.04  2008-11-13 
     4  * always using two-digit color codes. 
     5    http://rt.cpan.org/Ticket/Display.html?id=40736 
    26 
    370.03  2008-10-18 

  • lang/perl/String-IRC/trunk/lib/String/IRC.pm

    r21566 r23548  
    55use Carp; 
    66 
    7 our $VERSION = '0.03'; 
     7our $VERSION = '0.04'; 
    88 
    99use overload ( 
    … …  
    5757                my $color_code = ""; 
    5858                if ($_[1] && exists $color_name_table{ $_[1] }) { 
    59                     $color_code .= "$code,$color_name_table{ $_[1] }"; 
     59                    $color_code .= sprintf "%02d,%02d", $code, $color_name_table{ $_[1] }; 
    6060                } else { 
    61                     $color_code .= "$code"; 
     61                    $color_code .= sprintf "%02d",      $code; 
    6262                } 
    6363                $_[0]->_add_code_l("$color_code"); 

  • lang/perl/String-IRC/trunk/t/01.color.t

    r10701 r23548  
    1818=== red 
    1919--- input:  hello 
    20 --- expect: 4hello 
     20--- expect: 04hello 
    2121=== blue 
    2222--- input:  hello 
    23 --- expect: 2hello 
     23--- expect: 02hello 
    2424=== light_purple 
    2525--- input:  hello 
    … …  
    2727=== red 
    2828--- input: 
    29 --- expect: 4 
     29--- expect: 04 

  • lang/perl/String-IRC/trunk/t/03.complex.t

    r10701 r23548  
    1818=== bold yellow 
    1919--- input:  hello 
    20 --- expect: 8hello 
     20--- expect: 08hello 
    2121=== bold yellow underline 
    2222--- input:  hello 
    23 --- expect: 8hello 
     23--- expect: 08hello 
    2424=== bold yellow underline inverse 
    2525--- input:  hello 
    26 --- expect: 8hello 
     26--- expect: 08hello 

  • lang/perl/String-IRC/trunk/t/04.bgcolor.t

    r10701 r23548  
    1818=== yellow red 
    1919--- input:  hello 
    20 --- expect: 8,4hello 
     20--- expect: 08,04hello 
    2121=== red yellow 
    2222--- input:  hello 
    23 --- expect: 4,8hello 
     23--- expect: 04,08hello 
    2424=== red cyan 
    2525--- input:  hello 
    26 --- expect: 4,11hello 
     26--- expect: 04,11hello 

  • lang/perl/String-IRC/trunk/t/09.op.t

    r10701 r23548  
    2121=== bold yellow 
    2222--- input:  hello 
    23 --- expect: 8hello 
     23--- expect: 08hello