make sure we pop the savepoint off the stack

diff --git a/lib/DBIx/Class/Storage.pm b/lib/DBIx/Class/Storage.pm
index 4e9cdac..7a2ef13 100644 (file)
--- a/lib/DBIx/Class/Storage.pm
+++ b/lib/DBIx/Class/Storage.pm
@@ -431,9 +431,9 @@ sub svp_release {
 
   if (defined $name) {
     my @stack = @{ $self->savepoints };
-    my $svp;
+    my $svp   = pop @stack;
 
-    while (@stack and $stack[-1] ne $name) {
+    while (@stack and $svp ne $name) {
       $svp = pop @stack
     };