From 151ebbde09d88cf6e8fe7315e9589b8856455966 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 3 Feb 2009 04:23:22 +0000
Subject: [PATCH] Also leaking a version tag.

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

diff --git a/t/Shop/ShipDriver/FlatRate.t b/t/Shop/ShipDriver/FlatRate.t
index 36c557d32..a9e03b95a 100644
--- a/t/Shop/ShipDriver/FlatRate.t
+++ b/t/Shop/ShipDriver/FlatRate.t
@@ -329,4 +329,8 @@ END {
     if (defined $car && (ref($car) eq 'WebGUI::Asset::Sku::Product')) {
         $car->purge;
     }
+    my $tag = WebGUI::VersionTag->getWorking($session, 'nocreate');
+    if (defined $tag) {
+        $tag->rollback;
+    }
 }