From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 21 Oct 2003 20:45:12 +0000 (+0000)
Subject: Fix doc bug #23890, as suggested by Himanshu Garg :
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69fc43e8cc1ab20ea33528914d94e54ac04360ed;hp=460c8493c292a94fb1fbfccbd83eba5a346ddffa;p=p5sagit%2Fp5-mst-13.2.git

Fix doc bug #23890, as suggested by Himanshu Garg :
in perltoot, $him->fullname should be $him->fullname->as_string
when passed to printf.

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

diff --git a/pod/perltoot.pod b/pod/perltoot.pod
index 68ce8d4..03372c7 100644
--- a/pod/perltoot.pod
+++ b/pod/perltoot.pod
@@ -753,7 +753,7 @@ Finally, here's the test program:
     $him->fullname->title("St");
     $him->age(1);
 
-    printf "%s is really %s.\n", $him->name, $him->fullname;
+    printf "%s is really %s.\n", $him->name, $him->fullname->as_string;
     printf "%s's age: %d.\n", $him->name, $him->age;
     $him->happy_birthday;
     printf "%s's age: %d.\n", $him->name, $him->age;
@@ -969,7 +969,7 @@ And here's the test program:
     $boss->age(47);
     $boss->peers("Frank", "Felipe", "Faust");
 
-    printf "%s is age %d.\n", $boss->fullname, $boss->age;
+    printf "%s is age %d.\n", $boss->fullname->as_string, $boss->age;
     printf "His peers are: %s\n", join(", ", $boss->peers);
 
 Running it, we see that we're still ok.  If you'd like to dump out your