Questionable construct.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 11 Mar 2003 19:44:54 +0000 (19:44 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 11 Mar 2003 19:44:54 +0000 (19:44 +0000)
p4raw-id: //depot/perl@18926

pod/perltooc.pod

index 667f9fc..78b6135 100644 (file)
@@ -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};  
     }