projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
B::clearsym
[p5sagit/p5-mst-13.2.git]
/
pod
/
perltoot.pod
diff --git
a/pod/perltoot.pod
b/pod/perltoot.pod
index
c77a971
..
89e5cbe
100644
(file)
--- 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: