From 58d97badcdba62cbf18a19a6a173e0d09976f8fe Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 8 Oct 2008 20:26:50 +0000
Subject: [PATCH] fix clean-up of Products in FlatRate test

---
 t/Shop/ShipDriver/FlatRate.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/Shop/ShipDriver/FlatRate.t b/t/Shop/ShipDriver/FlatRate.t
index 0ebfd9ac4..22eb69bc9 100644
--- a/t/Shop/ShipDriver/FlatRate.t
+++ b/t/Shop/ShipDriver/FlatRate.t
@@ -249,7 +249,7 @@ undef $driver;
 #
 #######################################################################
 
-my $car = WebGUI::Asset->getImportNode($session)->addChild({
+$car = WebGUI::Asset->getImportNode($session)->addChild({
     className          => 'WebGUI::Asset::Sku::Product',
     title              => 'Automobiles',
     isShippingRequired => 1,
@@ -312,7 +312,7 @@ END {
     if (defined $cart and ref $cart eq 'WebGUI::Shop::Cart') {
         $cart->delete;
     }
-    if (defined $car and ref $car eq 'WebGUI::Asset:Sku::Product') {
+    if (defined $car and (ref($car) eq 'WebGUI::Asset::Sku::Product')) {
         $car->purge;
     }
 }