From: Ricardo Signes <rjbs@cpan.org>
Date: Tue, 12 Jan 2010 16:09:34 +0000 (-0500)
Subject: catch the one $class instance missed in less.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=12d0f8b2172bac2326267d8b95c99383b794a31b;p=p5sagit%2Fp5-mst-13.2.git

catch the one $class instance missed in less.pm
---

diff --git a/lib/less.pm b/lib/less.pm
index 8374383..d2528df 100644
--- a/lib/less.pm
+++ b/lib/less.pm
@@ -37,12 +37,13 @@ sub of {
 
 sub import {
     my $class = shift @_;
+    my $stash = $class->stash_name;
 
     @_ = 'please' if not @_;
     my %tags;
-    @tags{ _unpack_tags( @_, $^H{ $class->stash_name } ) } = ();
+    @tags{ _unpack_tags( @_, $^H{ $stash } ) } = ();
 
-    $^H{$class} = _pack_tags( keys %tags );
+    $^H{$stash} = _pack_tags( keys %tags );
     return;
 }