From 63bd297aef0adb4060b9144d5d439c2ce806cc75 Mon Sep 17 00:00:00 2001
From: Dave Cross <dave@dave.org.uk>
Date: Sun, 28 Jul 2002 20:31:28 +0000
Subject: [PATCH] =?UTF-8?q?Applied=20"exists"=20hash=20from=20Steffen=20M?=
 =?UTF-8?q?=EF=BF=BDller.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Regex.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Regex.pm b/Regex.pm
index 9c31b5a..2a5a904 100644
--- a/Regex.pm
+++ b/Regex.pm
@@ -15,6 +15,9 @@
 # $Id$
 #
 # $Log$
+# Revision 0.8  2002/07/28 20:31:28  dave
+# Applied "exists" hash from Steffen Müller.
+#
 # Revision 0.7  2002/07/12 18:37:09  dave
 # Corrected Attribute::Handler dependencies
 #
@@ -83,7 +86,7 @@ sub EXISTS {
 
   $key = qr/$key/ unless $is_re;
 
-  /$key/ && return 1 for keys %$key;
+  /$key/ && return 1 for keys %$self;
 
   return;
 }