X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FOpcode%2Fops.pm;h=af3842918f4e16456d61baa3e8e917c7550c6ed3;hb=f0a78170a1cd45c5019f6c77288041aa0767e0ff;hp=5a7b30a74ac090e905ffef6ae499f653f0a52a6c;hpb=6badd1a5d1be4008f79fae5239b170c45be32fca;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Opcode/ops.pm b/ext/Opcode/ops.pm
index 5a7b30a..af38429 100644
--- a/ext/Opcode/ops.pm
+++ b/ext/Opcode/ops.pm
@@ -1,18 +1,20 @@
 package ops;
 
+our $VERSION = '1.01';
+
 use Opcode qw(opmask_add opset invert_opset);
 
 sub import {
     shift;
-    # Not that unimport is the prefered form since import's don't
+    # 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(@_));
+    opmask_add(invert_opset opset(@_)) if @_;
 }
 
 sub unimport {
     shift;
-    opmask_add(opset(@_));
+    opmask_add(opset(@_)) if @_;
 }
 
 1;
@@ -31,7 +33,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