disallow IO::Socket in Safe.pm

rakudo · Oct 20, 2009 · 95d2f43 · 95d2f43
1 parent 7e34de6
commit 95d2f43
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/Safe.pm b/lib/Safe.pm
@@ -29,6 +29,8 @@ module Safe {
         $P0['run']  = $P1
         $P0['open'] = $P1
         $P0['!qx']  = $P1
+        null $P1
+        set_hll_global ['IO'], 'Socket', $P0
     }
 }