Mark implementation of qx as unsafe.

sorear · Oct 30, 2012 · c600005 · c600005
1 parent 136ddcf
commit c600005
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -3370,7 +3370,7 @@ sub eval($str,:$lang="perl6") is return-pass {
     }
 }
 
-sub rungather($command_line) { Q:CgOp { (box Str (command_qx (obj_getstr {$command_line}))) } }
+sub rungather($command_line) is unsafe { Q:CgOp { (box Str (command_qx (obj_getstr {$command_line}))) } }
 
 # tiny stub for Dancer
 my class DateTime {