Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (13 sloc) 398 Bytes
sub restricted($what) {
die "$what is disallowed in safe mode"
}
sub open(|$) { restricted('open') }
sub unlink(|$) { restricted('unlink') }
sub shell(|$) { restricted('shell') }
sub run(|$) { restricted('run') }
sub QX(|$) { restricted('qx, qqx') }
sub mkdir(|$) { restricted('mkdir') }
my class IO { }
IO.^add_fallback(
-> $, $ { True },
-> $, $ { restricted('IO') });
Jump to Line
Something went wrong with that request. Please try again.