From: Paul Mooney <paul.mooney@net-a-porter.com>
Date: Thu, 10 Mar 2016 11:16:22 +0000 (+0000)
Subject: Really really fail if the savepoint is not on the stack
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=db85531f06b8f67a7af9ca3440e6038bb859c485;p=dbsrgits%2FDBIx-Class-Historic.git

Really really fail if the savepoint is not on the stack
---

diff --git a/lib/DBIx/Class/Storage.pm b/lib/DBIx/Class/Storage.pm
index 7a2ef13..893d022 100644
--- a/lib/DBIx/Class/Storage.pm
+++ b/lib/DBIx/Class/Storage.pm
@@ -438,7 +438,7 @@ sub svp_release {
     };
 
     $self->throw_exception ("Savepoint '$name' does not exist")
-      unless $svp;
+      unless $svp and $svp eq $name;
 
     $self->savepoints(\@stack); # put back what's left
   }