From aeb36106e241325a1c06238b0c62611aa9ba8eea Mon Sep 17 00:00:00 2001
From: Scott Walters <scott@slowass.net>
Date: Wed, 19 May 2010 12:57:01 -0400
Subject: [PATCH] warning / Useless use of /d modifier in transliteration
 operator

---
 lib/WebGUI/Form/Zipcode.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Form/Zipcode.pm b/lib/WebGUI/Form/Zipcode.pm
index 75e15561d..9d71ad137 100644
--- a/lib/WebGUI/Form/Zipcode.pm
+++ b/lib/WebGUI/Form/Zipcode.pm
@@ -94,7 +94,7 @@ sub getValue {
 	my $self = shift;
 	my $value = $self->SUPER::getValue(@_);
 	$value =~ tr/\r\n//d;
-	$value =~ tr/a-z/A-Z/d;
+	$value =~ tr/a-z/A-Z/;
    	if ($value =~ /^[A-Z\d\s\-]+$/) {
 		return $value;
 	}