diff options
author | Roderick Schertler <roderick@argon.org> | 1997-04-19 10:22:43 -0400 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-23 00:00:00 +1200 |
commit | 2ea6c7ce0488e1089687862028446bf8024c6a88 (patch) | |
tree | 566100ef5fa393529546d9e4d672c0d16ef8c58e | |
parent | 6363f07a0fc20b9aaec13d52c2e107b263616a24 (diff) | |
download | perl-2ea6c7ce0488e1089687862028446bf8024c6a88.tar.gz |
Silence warnings on simple C<use ops>
private-msgid: pzybafum6k.fsf@eeyore.ibcinc.com
-rw-r--r-- | ext/Opcode/ops.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Opcode/ops.pm b/ext/Opcode/ops.pm index 5a7b30a74a..b9ea36cef3 100644 --- a/ext/Opcode/ops.pm +++ b/ext/Opcode/ops.pm @@ -7,12 +7,12 @@ sub import { # Not that unimport is the prefered 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(@_)); + opmask_add(invert_opset opset(@_)) if @_; } sub unimport { shift; - opmask_add(opset(@_)); + opmask_add(opset(@_)) if @_; } 1; |