From: Paul Mooney <paul.mooney@net-a-porter.com>
Date: Thu, 10 Mar 2016 11:10:44 +0000 (+0000)
Subject: make sure we pop the savepoint off the stack
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3498dc0ab7195759a38043cee3ef516f306e72a5;p=dbsrgits%2FDBIx-Class-Historic.git

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
--- 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
     };