[RT 62896] Log::Log4perl::Appender::ScreenColoredLevels now

inherits from Log::Log4perl::Appender::Screen and therefore
supports the utf8 flag.

Author: mschilli

Changes

@@ -2,8 +2,11 @@
  Revision history for Log::Log4perl
 ##################################################
 1.32 (not yet released)
-   *         [RT 62674] Fixed call to deprecated form of UNIVERSAL::can (Karen
+   *    (ms) [RT 62674] Fixed call to deprecated form of UNIVERSAL::can (Karen
              Etheridge).
+   *    (ms) [RT 62896] Log::Log4perl::Appender::ScreenColoredLevels now 
+             inherits from Log::Log4perl::Appender::Screen and therefore
+             supports the utf8 flag.
 
 1.31 (2010/10/27)
   *     (ms) Fixed the number of skipped tests for Windows for previous fix

lib/Log/Log4perl/Appender/ScreenColoredLevels.pm

@@ -1,7 +1,8 @@
 ##################################################
 package Log::Log4perl::Appender::ScreenColoredLevels;
 ##################################################
-our @ISA = qw(Log::Log4perl::Appender);
+use Log::Log4perl::Appender::Screen;
+our @ISA = qw(Log::Log4perl::Appender::Screen);
 
 use warnings;
 use strict;
@@ -12,14 +13,18 @@ use Log::Log4perl::Level;
 ##################################################
 sub new {
 ##################################################
-    my($class, @options) = @_;
-
-    my $self = {
-        name   => "unknown name",
-        stderr => 1,
-        color  => {},
-        @options,
-    };
+    my($class, %options) = @_;
+
+    my %specific_options = ( color => {} );
+
+    for my $option ( keys %specific_options ) {
+        $specific_options{ $option } = delete $options{ $option } if
+            exists $options{ $option };
+    }
+
+    my $self = $class->SUPER::new( %options );
+    @$self{ keys %specific_options } = values %specific_options;
+    bless $self, __PACKAGE__; # rebless
 
       # also accept lower/mixed case levels in config
     for my $level ( keys %{ $self->{color} } ) {