Permalink
Browse files

Fix Perl warning on removal of first item in the cart.

  • Loading branch information...
1 parent 6b5b566 commit 2bae2c6a1ae13fd0bc125c1084d8532a921b8a04 @racke racke committed with Oct 4, 2011
Showing with 2 additions and 0 deletions.
  1. +2 −0 lib/Nitesi/Cart.pm
View
@@ -182,6 +182,8 @@ sub remove {
my ($self, $arg) = @_;
my ($pos, $found, $item);
+ $pos = 0;
+
for $item (@{$self->{items}}) {
if ($item->{sku} eq $arg) {
$found = 1;

0 comments on commit 2bae2c6

Please sign in to comment.