diff Lib/IMPL/lang.pm @ 241:f48a1a9f4fa2

+Added ViewResult to allow implementation of the view environment. *TTDocuments now storing creation parameters *TTControls automatically propagating layout and title meta to their attributes +Added UnauthorizaedException web exception *minor fixes
author sergey
date Thu, 18 Oct 2012 04:49:55 +0400
parents 6d8092d8ce1b
children 56364d0c4b4f
line wrap: on
line diff
--- a/Lib/IMPL/lang.pm	Wed Oct 17 17:41:29 2012 +0400
+++ b/Lib/IMPL/lang.pm	Thu Oct 18 04:49:55 2012 +0400
@@ -160,6 +160,8 @@
 sub hashApply {
     my ($target,$diff) = @_;
     
+    return $target unless ref $diff eq 'HASH';
+    
     while ( my ($key,$value) = each %$diff) {
         $key =~ /^(\+|-)?(.*)$/;
         my $op = $1 || '+';