! binds more tightly than ~~. Frankly, this sucks.

This commit is contained in:
Colin Kuskie 2010-09-22 10:12:33 -07:00
parent 4e1ac0a8e3
commit 25181ae4db

View file

@ -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");
}