[Safe.pm] disallow slurp()

rakudo · Jan 4, 2010 · 8817454 · 8817454
1 parent 4456d81
commit 8817454
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Safe.pm b/lib/Safe.pm
@@ -28,6 +28,7 @@ module Safe {
         $P1 = find_lex '$s'
         $P0['run']  = $P1
         $P0['open'] = $P1
+        $P0['slurp'] = $P1
         $P0['!qx']  = $P1
         null $P1
         set_hll_global ['IO'], 'Socket', $P0