Re: AIX and gcc (moving targets)

[p5sagit/p5-mst-13.2.git] / ext / Opcode / ops.pm

diff --git a/ext/Opcode/ops.pm b/ext/Opcode/ops.pm
index 5a7b30a..9b553b7 100644 (file)
--- 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;
@@ -31,7 +31,7 @@ ops - Perl pragma to restrict unsafe operations when compiling
 
 =head1 DESCRIPTION
 
-Since the ops pragma currently has an irreversable global effect, it is
+Since the 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