This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7b89aed
)
Fix line containing only whitespace.
author
Michael Stevens
<mstevens@etla.org>
Mon, 17 Jan 2011 21:02:49 +0000
(21:02 +0000)
committer
Father Chrysostomos
<sprout@cpan.org>
Tue, 18 Jan 2011 04:12:53 +0000
(20:12 -0800)
pod/perlfaq4.pod
patch
|
blob
|
blame
|
history
diff --git
a/pod/perlfaq4.pod
b/pod/perlfaq4.pod
index
bf00acc
..
c870918
100644
(file)
--- a/
pod/perlfaq4.pod
+++ b/
pod/perlfaq4.pod
@@
-2431,7
+2431,7
@@
you want to check three keys deep, you might naïvely try this:
if( exists $hash{key1}{key2}{key3} ) {
...;
}
-
+
Even though you started with a completely empty hash, after that call to
C<exists> you've created the structure you needed to check for C<key3>: