summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/ops.pm
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
commit316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch)
treecb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/lib/ops.pm
parentcd0f87b5d39480d85ad9bd4ee37f520f75bed560 (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-xMaster/tlpkg/tlperl/lib/ops.pm47
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
-