Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: inliner
Fetching contributors…

Cannot retrieve contributors at this time

21 lines (17 sloc) 0.582 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.