my-scope the Parameter constants.

For one because they should be, for two because it avoids a bug (that will need some separate tracking down).
rakudo · Dec 9, 2012 · c6b1d85 · c6b1d85
1 parent 290cb0d
commit c6b1d85
Showing 1 changed file with 17 additions and 18 deletions.
diff --git a/src/core/Parameter.pm b/src/core/Parameter.pm
@@ -1,22 +1,21 @@
 my class Parameter {
-    # XXX constant...
-    constant $SIG_ELEM_BIND_CAPTURE       = 1;
-    constant $SIG_ELEM_BIND_PRIVATE_ATTR  = 2;
-    constant $SIG_ELEM_BIND_PUBLIC_ATTR   = 4;
-    constant $SIG_ELEM_SLURPY_POS         = 8;
-    constant $SIG_ELEM_SLURPY_NAMED       = 16;
-    constant $SIG_ELEM_SLURPY_BLOCK       = 32;
-    constant $SIG_ELEM_INVOCANT           = 64;
-    constant $SIG_ELEM_MULTI_INVOCANT     = 128;
-    constant $SIG_ELEM_IS_RW              = 256;
-    constant $SIG_ELEM_IS_COPY            = 512;
-    constant $SIG_ELEM_IS_PARCEL          = 1024;
-    constant $SIG_ELEM_IS_OPTIONAL        = 2048;
-    constant $SIG_ELEM_ARRAY_SIGIL        = 4096;
-    constant $SIG_ELEM_HASH_SIGIL         = 8192;
-    constant $SIG_ELEM_IS_CAPTURE         = 32768;
-    constant $SIG_ELEM_UNDEFINED_ONLY     = 65536;
-    constant $SIG_ELEM_DEFINED_ONLY       = 131072;
+    my constant $SIG_ELEM_BIND_CAPTURE       = 1;
+    my constant $SIG_ELEM_BIND_PRIVATE_ATTR  = 2;
+    my constant $SIG_ELEM_BIND_PUBLIC_ATTR   = 4;
+    my constant $SIG_ELEM_SLURPY_POS         = 8;
+    my constant $SIG_ELEM_SLURPY_NAMED       = 16;
+    my constant $SIG_ELEM_SLURPY_BLOCK       = 32;
+    my constant $SIG_ELEM_INVOCANT           = 64;
+    my constant $SIG_ELEM_MULTI_INVOCANT     = 128;
+    my constant $SIG_ELEM_IS_RW              = 256;
+    my constant $SIG_ELEM_IS_COPY            = 512;
+    my constant $SIG_ELEM_IS_PARCEL          = 1024;
+    my constant $SIG_ELEM_IS_OPTIONAL        = 2048;
+    my constant $SIG_ELEM_ARRAY_SIGIL        = 4096;
+    my constant $SIG_ELEM_HASH_SIGIL         = 8192;
+    my constant $SIG_ELEM_IS_CAPTURE         = 32768;
+    my constant $SIG_ELEM_UNDEFINED_ONLY     = 65536;
+    my constant $SIG_ELEM_DEFINED_ONLY       = 131072;
 
     method name() {
         $!variable_name