! 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 # extrasUploadAction and rootUrlAction must have values matching something
# in the arrays defined above # 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"); 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"); WebGUI::Error->throw(error => "'$rootUrlAction' is not a valid rootUrlAction");
} }