Fix bug in Cart.pm affecting prefixes on MaxQuantityField

pajamian · May 3, 2011 · 5659b76 · 5659b76
1 parent 291e7f1
commit 5659b76
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Vend/Cart.pm b/lib/Vend/Cart.pm
@@ -262,8 +262,8 @@ sub toss_cart {
 				  $tab = $item->{mv_ib} || $Vend::Cfg->{ProductFiles}[0];
 			      }
 
-			      my ($prefix) = $tab =~ s/^([=\?])//;
+			      my $prefix = '';
-			      $prefix ||= '';
+			      $tab =~ s/^([=?])// and $prefix = $1;
 
 			      my $max = \$quantity_cache{"$tab.$col.$item->{code}"};
 			      $$max ||= ::tag_data($tab, $col, $item->{code});