diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-11 19:44:54 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-11 19:44:54 +0000 |
| commit | 5a2f86394dfa86bd3184e3ae8a7546e06047c35c (patch) | |
| tree | 4bb177d2a2a8a240aa191fe3cd84abf357f9ffa8 /pod/perltooc.pod | |
| parent | 77a4069887dcd1a19497f21acebaf596a50df108 (diff) | |
| download | perl-5a2f86394dfa86bd3184e3ae8a7546e06047c35c.tar.gz | |
Questionable construct.
p4raw-id: //depot/perl@18926
Diffstat (limited to 'pod/perltooc.pod')
| -rw-r--r-- | pod/perltooc.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perltooc.pod b/pod/perltooc.pod index 667f9fc202..78b6135717 100644 --- a/pod/perltooc.pod +++ b/pod/perltooc.pod @@ -842,7 +842,7 @@ ones. # invoked as class method or object method sub has_attribute { my($self, $attr) = @_; - my $class = ref $self if $self; + my $class = ref($self) || $self; return exists $class->{$attr}; } |