X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperltooc.pod;h=78b6135717136e40ef1429c1a72bb7b3e645289c;hb=749683d21f35ef8611124597a119da951072e5fa;hp=667f9fc20282a40646794976d0dcafba8d5c2ad8;hpb=c801bddb79887dcdaa40b9af734318a8be202252;p=p5sagit%2Fp5-mst-13.2.git

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