This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6f7a7d3
)
catch the one $class instance missed in less.pm
author
Ricardo Signes
<rjbs@cpan.org>
Tue, 12 Jan 2010 16:09:34 +0000
(11:09 -0500)
committer
David Golden
<dagolden@cpan.org>
Tue, 12 Jan 2010 16:46:49 +0000
(11:46 -0500)
lib/less.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/less.pm
b/lib/less.pm
index
8374383
..
d2528df
100644
(file)
--- 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;
}