Change 34027 by [EMAIL PROTECTED] on 2008/06/08 14:45:20
Subject: [PATCH] perlsyn: equivalent code for HASH ~~ ARRAY
From: brian d foy <[EMAIL PROTECTED]>
Date: Sat, 07 Jun 2008 23:59:22 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/pod/perlsyn.pod#64 edit
Differences ...
==== //depot/perl/pod/perlsyn.pod#64 (text) ====
Index: perl/pod/perlsyn.pod
--- perl/pod/perlsyn.pod#63~33488~ 2008-03-12 03:12:53.000000000 -0700
+++ perl/pod/perlsyn.pod 2008-06-08 07:45:20.000000000 -0700
@@ -674,7 +674,7 @@
Any Code[+] scalar sub truth $b->($a)
Hash Hash hash keys identical [sort keys %$a]~~[sort keys %$b]
- Hash Array hash slice existence grep {exists $a->{$_}} @$b
+ Hash Array hash slice existence @$b == grep {exists $a->{$_}}
@$b
Hash Regex hash key grep grep /$b/, keys %$a
Hash Any hash entry existence exists $a->{$b}
End of Patch.
