diff options
Diffstat (limited to 'pod/perltie.pod')
-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 |