projects
/
gitmo/Moose.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Str constraint shouldn't accept GV's
[gitmo/Moose.git]
/
lib
/
Moose
/
Util
/
TypeConstraints
/
OptimizedConstraints.pm
diff --git
a/lib/Moose/Util/TypeConstraints/OptimizedConstraints.pm
b/lib/Moose/Util/TypeConstraints/OptimizedConstraints.pm
index
1b71222
..
d6fe17e
100644
(file)
--- a/
lib/Moose/Util/TypeConstraints/OptimizedConstraints.pm
+++ b/
lib/Moose/Util/TypeConstraints/OptimizedConstraints.pm
@@
-14,7
+14,7
@@
sub Value { defined($_[0]) && !ref($_[0]) }
sub Ref { ref($_[0]) }
-sub Str { defined($_[0]) && !ref($_[0]) }
+sub Str { defined($_[0]) && ref(\$_[0]) eq 'SCALAR' }
sub Num { !ref($_[0]) && looks_like_number($_[0]) }