From 7db971d274081a0f3dc0798c5b0599da57a60cb4 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 13 May 2010 14:07:27 -0700
Subject: [PATCH] Better clean-up.

---
 t/Asset/File/GalleryFile/Photo/exif.t | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/t/Asset/File/GalleryFile/Photo/exif.t b/t/Asset/File/GalleryFile/Photo/exif.t
index 303065b0b..f1a0f2390 100644
--- a/t/Asset/File/GalleryFile/Photo/exif.t
+++ b/t/Asset/File/GalleryFile/Photo/exif.t
@@ -27,6 +27,7 @@ my $session         = WebGUI::Test->session;
 my $node            = WebGUI::Asset->getImportNode($session);
 my $versionTag      = WebGUI::VersionTag->getWorking($session);
 $versionTag->set({name=>"Photo Test"});
+WebGUI::Test->addToCleanup($versionTag);
 my $gallery
     = $node->addChild({
         className           => "WebGUI::Asset::Wobject::Gallery",
@@ -61,13 +62,6 @@ for my $key ( qw{ Directory } ) {
     delete $exif->{ $key };
 }
 
-
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-    $versionTag->rollback();
-}
-
 #----------------------------------------------------------------------------
 # Tests
 plan tests => 2;