From: Roderick Schertler <roderick@argon.org>
Date: Sat, 19 Apr 1997 14:22:43 +0000 (-0400)
Subject: Silence warnings on simple C<use ops>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ea6c7ce0488e1089687862028446bf8024c6a88;p=p5sagit%2Fp5-mst-13.2.git

Silence warnings on simple C<use ops>

private-msgid: pzybafum6k.fsf@eeyore.ibcinc.com
---

diff --git a/ext/Opcode/ops.pm b/ext/Opcode/ops.pm
index 5a7b30a..b9ea36c 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;