From d6db67f2d91e588a13d4c1b90d1af1054faf4d41 Mon Sep 17 00:00:00 2001
From: brian d foy <brian.d.foy@gmail.com>
Date: Sun, 8 Jun 2008 00:59:22 +0100
Subject: perlsyn: equivalent code for HASH ~~ ARRAY Message-ID:
 <070620082359221579%brian.d.foy@gmail.com>

p4raw-id: //depot/perl@34027
---
 pod/perlsyn.pod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pod/perlsyn.pod')

diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod
index 44c4f1aff3..ec865103c5 100644
--- a/pod/perlsyn.pod
+++ b/pod/perlsyn.pod
@@ -674,7 +674,7 @@ order, determines the match behaviour.
     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}
 
-- 
cgit v1.2.1