From 636bde7131157dfa7d1893556794d98863843e0b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 22 Sep 2010 12:04:19 -0700
Subject: [PATCH] Fix another smart match/! binding problem

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

diff --git a/lib/WebGUI/Form/Image.pm b/lib/WebGUI/Form/Image.pm
index 82571bd19..a36220ee1 100644
--- a/lib/WebGUI/Form/Image.pm
+++ b/lib/WebGUI/Form/Image.pm
@@ -140,7 +140,7 @@ sub getValue {
 			my @files = @{$storage->getFiles};
 			my @images = grep{$storage->isImage($_)} @files; # Put all filenames that isImage returns true for into @images
 			if ($self->get('forceImageOnly')) {
-				$storage->deleteFile($_) for grep{ ! $_ ~~ @images } @files; # Search @files for filenames that are not in @images and delete them
+				$storage->deleteFile($_) for grep{ ! ($_ ~~ @images) } @files; # Search @files for filenames that are not in @images and delete them
 				@files = @images;
 			}