In vars::import, avoid assigning to $pack, which is never read.
authorNicholas Clark <nick@ccl4.org>
Sat, 19 Jun 2010 21:43:41 +0000 (22:43 +0100)
committerNicholas Clark <nick@ccl4.org>
Wed, 23 Jun 2010 07:44:42 +0000 (08:44 +0100)
On this platform, cachegrind shows a 0.5% reduction in instruction count and
L1 cache references as a result. A tiny gain for every instance of use vars ...;

lib/vars.pm

index a0151b8..8ec107c 100644 (file)
@@ -2,14 +2,14 @@ package vars;
 
 use 5.006;
 
-our $VERSION = '1.01';
+our $VERSION = '1.02';
 
 use warnings::register;
 use strict qw(vars subs);
 
 sub import {
     my $callpack = caller;
-    my ($pack, @imports) = @_;
+    my (undef, @imports) = @_;
     my ($sym, $ch);
     foreach (@imports) {
         if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {