diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 12:20:49 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 12:20:49 +0000 |
commit | 316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch) | |
tree | cb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/lib/ops.pm | |
parent | cd0f87b5d39480d85ad9bd4ee37f520f75bed560 (diff) |
Moving old tlperl prior to committing new one
git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ops.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/ops.pm | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/Master/tlpkg/tlperl/lib/ops.pm b/Master/tlpkg/tlperl/lib/ops.pm deleted file mode 100755 index 4183669eb16..00000000000 --- a/Master/tlpkg/tlperl/lib/ops.pm +++ /dev/null @@ -1,47 +0,0 @@ -package ops; - -our $VERSION = '1.02'; - -use Opcode qw(opmask_add opset invert_opset); - -sub import { - shift; - # Not that unimport is the preferred form since import's don't - # accumulate well owing to the 'only ever add opmask' rule. - # E.g., perl -Mops=:set1 -Mops=:setb is unlikely to do as expected. - opmask_add(invert_opset opset(@_)) if @_; -} - -sub unimport { - shift; - opmask_add(opset(@_)) if @_; -} - -1; - -__END__ - -=head1 NAME - -ops - Perl pragma to restrict unsafe operations when compiling - -=head1 SYNOPSIS - - perl -Mops=:default ... # only allow reasonably safe operations - - perl -M-ops=system ... # disable the 'system' opcode - -=head1 DESCRIPTION - -Since the C<ops> pragma currently has an irreversible global effect, it is -only of significant practical use with the C<-M> option on the command line. - -See the L<Opcode> module for information about opcodes, optags, opmasks -and important information about safety. - -=head1 SEE ALSO - -L<Opcode>, L<Safe>, L<perlrun> - -=cut - |