diff options
| author | Jakub Wilk <jwilk@jwilk.net> | 2021-12-13 16:04:52 +0100 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-12-16 07:50:57 -0700 |
| commit | ac4af195cbd8166be0d74dc3a82ae369b6cf98b0 (patch) | |
| tree | 57740d0e770ac030808e72729ade72cdbf3d96f6 | |
| parent | 7b73da62e71e7f27f0a6eff85cc92ca6e2a2c5ad (diff) | |
| download | perl-ac4af195cbd8166be0d74dc3a82ae369b6cf98b0.tar.gz | |
perltie: Fix variable name in TIEHASH example
| -rw-r--r-- | pod/perltie.pod | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/perltie.pod b/pod/perltie.pod index cea7a6fe6e..9e8ad168f3 100644 --- a/pod/perltie.pod +++ b/pod/perltie.pod @@ -599,7 +599,7 @@ necessarily an anonymous hash) will be accessed. Here's the constructor: sub TIEHASH { - my $self = shift; + my $class = shift; my $user = shift || $>; my $dotdir = shift || ''; croak "usage: @{[&whowasi]} [USER [DOTDIR]]" if @_; @@ -622,7 +622,7 @@ Here's the constructor: $node->{LIST}{$dot} = undef; } closedir DIR; - return bless $node, $self; + return bless $node, $class; } It's probably worth mentioning that if you're going to filetest the |