X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstorage%2Ftxn_scope_guard.t;h=f79ff8dbdaccbd1bc0a9ec4de1886c4af614b06e;hb=92b6fb5fcb5fdb12ee8788ce02672a00658fac92;hp=dbfc6a4598ffad741885948c101acee5dd1330a3;hpb=f2054ba7a9ecb96b05904b59c3b044a7d9d64e06;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/storage/txn_scope_guard.t b/t/storage/txn_scope_guard.t
index dbfc6a4..f79ff8d 100644
--- a/t/storage/txn_scope_guard.t
+++ b/t/storage/txn_scope_guard.t
@@ -104,7 +104,10 @@ use DBICTest;
     #$schema->storage->_dbh( $schema->storage->_dbh->clone );
 
     die 'Deliberate exception';
-  }, qr/Deliberate exception.+Rollback failed/s);
+  }, ($] >= 5.013008 )
+    ? qr/Deliberate exception/s # temporary until we get the generic exception wrapper rolling
+    : qr/Deliberate exception.+Rollback failed/s
+  );
 
   # just to mask off warning since we could not disconnect above
   $schema->storage->_dbh->disconnect;