From 987fc6e26baea18fa0c3c48fb1208c5c350a4bc1 Mon Sep 17 00:00:00 2001
From: edenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>
Date: Thu, 17 Sep 2009 18:14:04 +0000
Subject: compatibility fixes for Class::MOP 0.93

---
 lib/Reaction/UI/Skin.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/Reaction/UI/Skin.pm')

diff --git a/lib/Reaction/UI/Skin.pm b/lib/Reaction/UI/Skin.pm
index 237279d..0683258 100644
--- a/lib/Reaction/UI/Skin.pm
+++ b/lib/Reaction/UI/Skin.pm
@@ -71,6 +71,7 @@ sub _find_skin_dir {
 };
 sub _load_skin_config {
   my ($self, $args) = @_;
+  my $class = ref($self) || $self;
   my $base = $self->skin_dir;
   my $lst = sub { (ref $_[0] eq 'ARRAY') ? $_[0] : [$_[0]] };
   my @files = (
@@ -84,7 +85,7 @@ sub _load_skin_config {
               })}
             );
   if (my $super_name = $cfg{extends}) {
-    my $super = $self->new(
+    my $super = $class->new(
       name => $super_name,
       view => $self->view,
       skin_base_dir => $args->{skin_base_dir},
-- 
cgit v1.2.3-54-g00ecf