From 25181ae4dbd41bc16ce8e00be15171a32a16203b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 22 Sep 2010 10:12:33 -0700
Subject: [PATCH] ! binds more tightly than ~~.  Frankly, this sucks.

---
 lib/WebGUI/AssetExportHtml.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/AssetExportHtml.pm b/lib/WebGUI/AssetExportHtml.pm
index 16d7b1bbc..7ef7e27fb 100644
--- a/lib/WebGUI/AssetExportHtml.pm
+++ b/lib/WebGUI/AssetExportHtml.pm
@@ -249,11 +249,11 @@ sub exportAsHtml {
 
     # extrasUploadAction and rootUrlAction must have values matching something
     # in the arrays defined above
-    if( defined $extrasUploadAction && !$extrasUploadAction ~~ @extraUploadActions ) {
+    if( defined $extrasUploadAction && !($extrasUploadAction ~~ @extraUploadActions) ) {
         WebGUI::Error->throw(error => "'$extrasUploadAction' is not a valid extrasUploadAction");
     }
 
-    if( defined $rootUrlAction && !$rootUrlAction ~~ @rootUrlActions ) {
+    if( defined $rootUrlAction && !($rootUrlAction ~~ @rootUrlActions) ) {
         WebGUI::Error->throw(error => "'$rootUrlAction' is not a valid rootUrlAction");
     }