adding quotes around arbitrary stuff isn't safe, just stringify

diff --git a/lib/Moose/Util/TypeConstraints/Builtins.pm b/lib/Moose/Util/TypeConstraints/Builtins.pm
index a19c90a..8aed469 100644 (file)
--- a/lib/Moose/Util/TypeConstraints/Builtins.pm
+++ b/lib/Moose/Util/TypeConstraints/Builtins.pm
@@ -48,8 +48,8 @@ sub define_builtins {
             . ' && ('
                 . '!defined(' . $_[1] . ') '
                 . '|| ' . $_[1] . ' eq "" '
-                . '|| "' . $_[1] . '" eq "1" '
-                . '|| "' . $_[1] . '" eq "0"'
+                . '|| (' . $_[1] . '."") eq "1" '
+                . '|| (' . $_[1] . '."") eq "0"'
             . ')'
         };