Mercurial > pub > Impl

diff Lib/IMPL/Code/BasePropertyImplementor.pm @ 385:0d63f5273307

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author sergey
date Tue, 11 Feb 2014 01:05:55 +0400
parents ced5937ff21a
children
line wrap: on
line diff
--- a/Lib/IMPL/Code/BasePropertyImplementor.pm	Thu Jan 23 17:26:34 2014 +0400
+++ b/Lib/IMPL/Code/BasePropertyImplementor.pm	Tue Feb 11 01:05:55 2014 +0400
@@ -40,15 +40,19 @@
 sub NormalizeSpecification {
 	my ($this,$spec) = @_;
 	
-	return ref $spec
-        ? $spec
-        : {
+	return $spec if ref($spec);
+	
+	if (looks_like_number($spec)) {
+		return {
             get => $spec & PROP_GET,
             set => $spec & PROP_SET,
             isList => $spec & PROP_LIST,
             ownerSet => (($spec & PROP_OWNERSET) == PROP_OWNERSET),
             direct => $spec & PROP_DIRECT
-        };	    
+        };
+	} else {
+		return {};
+	}	    
 }
 
 sub CreateFactoryId {