diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2010-01-12 11:09:34 -0500 |
|---|---|---|
| committer | David Golden <dagolden@cpan.org> | 2010-01-12 11:46:49 -0500 |
| commit | 12d0f8b2172bac2326267d8b95c99383b794a31b (patch) | |
| tree | a73a57172050a348592863282ed0aaa5faf56efd /lib | |
| parent | 6f7a7d3eeb6b7da414c3496d3eb5a7c4f5127201 (diff) | |
| download | perl-12d0f8b2172bac2326267d8b95c99383b794a31b.tar.gz | |
catch the one $class instance missed in less.pm
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/less.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/less.pm b/lib/less.pm index 8374383fc5..d2528dfeaf 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; } |