From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 15 Nov 2010 10:32:48 +0000 (+0100)
Subject: Fix 2 stupid omissions in tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2054ba7a9ecb96b05904b59c3b044a7d9d64e06;p=dbsrgits%2FDBIx-Class-Historic.git

Fix 2 stupid omissions in tests
---

diff --git a/t/storage/txn.t b/t/storage/txn.t
index dc7c8b3..d48d84b 100644
--- a/t/storage/txn.t
+++ b/t/storage/txn.t
@@ -194,7 +194,7 @@ for my $want (0,1) {
 
     my @pids;
     my $guard = $schema->txn_scope_guard;
-    _forking_action ($schema);
+    @pids = _forking_action ($schema);
     $guard->commit;
 
     for my $pid (@pids) {
diff --git a/t/storage/txn_scope_guard.t b/t/storage/txn_scope_guard.t
index 143f714..dbfc6a4 100644
--- a/t/storage/txn_scope_guard.t
+++ b/t/storage/txn_scope_guard.t
@@ -24,7 +24,7 @@ use DBICTest;
     });
 
    $guard->commit;
-  } qr/No such column made_up_column .*? at .*?$fn line \d+/s, "Error propogated okay";
+  } qr/No such column made_up_column .*? at .*?\Q$fn\E line \d+/s, "Error propogated okay";
 
   ok(!$artist_rs->find({name => 'Death Cab for Cutie'}), "Artist not created");