[interchange] Avoid warning when item_price is called with a SKU rather than hashref

Jon Jensen interchange-cvs at icdevgroup.org
Fri Apr 29 03:03:49 UTC 2016


commit a19a8b5e3abe9346c7bf593355f35af9c34adb03
Author: Jon Jensen <jon at endpoint.com>
Date:   Thu Apr 28 00:50:04 2016 -0600

    Avoid warning when item_price is called with a SKU rather than hashref
    
    Originally from a private repository commit:
    
    Author: Jeff Boes <jeff at endpoint.com>
    Date:   Wed Mar 24 09:20:20 2010 -0400
    
        This adds a minor sanity check to the code to avoid a warning when
        $item is not a reference (i.e., has been passed in as a SKU).

 lib/Vend/Data.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/lib/Vend/Data.pm b/lib/Vend/Data.pm
index 1df484b..f8c97f9 100644
--- a/lib/Vend/Data.pm
+++ b/lib/Vend/Data.pm
@@ -1,6 +1,6 @@
 # Vend::Data - Interchange databases
 #
-# Copyright (C) 2002-2009 Interchange Development Group
+# Copyright (C) 2002-2016 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
 #
 # This program was originally based on Vend 0.2 and 0.3
@@ -1641,7 +1641,7 @@ sub item_price {
 #::logDebug("item_price initial call: " . (ref $item ? $item->{code} : $item));
 
 	return $item->{mv_cache_price}
-		if ! $quantity and defined $item->{mv_cache_price};
+		if ! $quantity and ref($item) and defined $item->{mv_cache_price};
 
 	$item = { 'code' => $item } unless ref $item;
 	$item->{quantity} = 1 if ! defined $item->{quantity};



More information about the interchange-cvs mailing list