Questionable construct.

p4raw-id: //depot/perl@18926

diff --git a/pod/perltooc.pod b/pod/perltooc.pod
index 667f9fc..78b6135 100644 (file)
--- 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};  
     }