From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 11 Mar 2003 19:44:54 +0000 (+0000)
Subject: Questionable construct.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a2f86394dfa86bd3184e3ae8a7546e06047c35c;p=p5sagit%2Fp5-mst-13.2.git

Questionable construct.

p4raw-id: //depot/perl@18926
---

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};  
     }