Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tag: 2012.09.1
Fetching contributors…

Cannot retrieve contributors at this time

21 lines (17 sloc) 0.573 kb
# SAFE.setting is deprecated, use RESTRICTED.setting instead.
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') }
sub rmdir(|) { restricted('rmdir') }
sub rename(|) { restricted('rename') }
sub copy(|) { restricted('copy') }
my class IO { }
IO.^add_fallback(
-> $, $ { True },
-> $, $ { restricted('IO') });
Jump to Line
Something went wrong with that request. Please try again.