summaryrefslogtreecommitdiff
path: root/pod/perltoot.pod
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-07-17 16:34:09 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-07-17 16:34:09 +0000
commit87275199ef473a0bd08ce6f46db30d4d432f4876 (patch)
tree3f8e18dd43f70fe33e25ec58f37ac2a0bea79a51 /pod/perltoot.pod
parentfa9c2ea87c89382fe822598450654e31bdb24ee0 (diff)
downloadperl-87275199ef473a0bd08ce6f46db30d4d432f4876.tar.gz
pod fixes (with minor edits) from Abigail, Ronald Kimball, Jon
Waddington, Tuomas Lukka, Steven Tolkin, Ian Phillipps, and Steve Lidie p4raw-id: //depot/perl@3676
Diffstat (limited to 'pod/perltoot.pod')
-rw-r--r--pod/perltoot.pod2
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perltoot.pod b/pod/perltoot.pod
index c77a971b57..89e5cbe993 100644
--- a/pod/perltoot.pod
+++ b/pod/perltoot.pod
@@ -329,7 +329,7 @@ do more than fetch or set one particular field.
sub exclaim {
my $self = shift;
return sprintf "Hi, I'm %s, age %d, working with %s",
- $self->{NAME}, $self->{AGE}, join(", ", $self->{PEERS});
+ $self->{NAME}, $self->{AGE}, join(", ", @{$self->{PEERS}});
}
Or maybe even one like this: