Subject: | [PATCH] Unneeded \Q causes test failures with bleadperl |
The following patch allows all tests to pass in bleadperl. I also tested with Perl 5.8.8 and all
the tests pass there with the following patch.
--- t/76joins.t.old 2007-01-12 19:31:39.000000000 -0600
+++ t/76joins.t 2007-01-12 19:31:51.000000000 -0600
@@ -105,7 +105,7 @@
[ { father => 'person' }, { 'father.person_id' => { '!=', '42' } }, ],
[ { mother => 'person' }, { 'mother.person_id' => 'child.mother_id' } ],
);
-$match = qr/^\QHASH reference arguments are not supported in JOINS - try using \"..."
instead\E/;
+$match = qr/^HASH reference arguments are not supported in JOINS - try using \"..."
instead\E/;
eval { $sa->_recurse_from(@j6) };
like( $@, $match, 'join 6 (HASH reference for ON statement dies) ok' );