Warn about decreasing quantity on an empty slot rather than erroring out

zpmorgan · Nov 21, 2009 · 418d067 · 418d067
1 parent 704638d
commit 418d067
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lib/NetHack/Inventory.pm b/lib/NetHack/Inventory.pm
@@ -157,6 +157,11 @@ sub decrease_quantity {
     my $by   = shift || 1;
 
     my $item = $self->get($slot);
+    if (!$item) {
+        warn "Inventory->decrease_quantity called on an empty slot '$slot'";
+        return 0;
+    }
+
     my $orig_quantity = $item->quantity;
 
     if ($by >= $orig_quantity) {