diff options
author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-08-01 15:55:00 +0000 |
---|---|---|
committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-08-01 15:55:00 +0000 |
commit | b0c3f1b1c83e66026d3ee33cbd65fc5547fd2d8c (patch) | |
tree | 1e02a60e49c8775829327835605f277d4b63e50a | |
parent | 003da5f65435de36c070cae5bf624be693a366ea (diff) | |
download | reaction-b0c3f1b1c83e66026d3ee33cbd65fc5547fd2d8c.tar.gz reaction-b0c3f1b1c83e66026d3ee33cbd65fc5547fd2d8c.zip |
wtfbbq
-rw-r--r-- | lib/Reaction/UI/Skin.pm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lib/Reaction/UI/Skin.pm b/lib/Reaction/UI/Skin.pm index e5233cf..261af79 100644 --- a/lib/Reaction/UI/Skin.pm +++ b/lib/Reaction/UI/Skin.pm @@ -92,10 +92,15 @@ sub _load_skin_config { } if (exists $cfg{widget_search_path}) { $self->widget_search_path($lst->($cfg{widget_search_path})); - } else { + } + # For some reason this conditional doesn't work correctly without + # the "my @x". Answers on a postcard. + unless (my @x = $self->full_widget_search_path) { confess "No widget_search_path in defaults.conf or skin.conf" - ." and no search path provided from super skin" - unless $self->full_widget_search_path; + .($self->has_super + ? " and no search path provided from super skin " + .$self->super->name + : ""); } } sub create_layout_set { |