[Bps-public-commit] r15447 - in Path-Dispatcher/trunk: lib/Path

[sartak at bestpractical.com]

Author: sartak
Date: Mon Aug 25 16:15:07 2008
New Revision: 15447

Modified:
   Path-Dispatcher/trunk/   (props changed)
   Path-Dispatcher/trunk/lib/Path/Dispatcher.pm

Log:
 r70303 at onn:  sartak | 2008-08-25 16:06:48 -0400
 Check for, and run, cleanup stages if we abort the dispatch


Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher.pm	(original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher.pm	Mon Aug 25 16:15:07 2008
@@ -69,7 +69,18 @@
             dispatch => $dispatch,
             path     => $path,
         );
-        last if $stop;
+
+        if ($stop) {
+            if ($stage->has_cleanup_stage) {
+                $self->dispatch_stage(
+                    stage    => $stage->cleanup_stage,
+                    dispatch => $dispatch,
+                    path     => $path,
+                );
+            }
+
+            return $dispatch;
+        }
     }
 
     $dispatch->add_redispatch($self->redispatch($path))