[Bast-commits] r3189 - trunk/DBIx-Class/t

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-04-14 01:09:32 +0100 (Sat, 14 Apr 2007)
New Revision: 3189

Modified:
   trunk/DBIx-Class/t/76joins.t
Log:
fixed regex in t/76joins (was relying on a 5.8.8 bug that is fixed in bleadperl, so this test was failing on bleadperl)

Modified: trunk/DBIx-Class/t/76joins.t
===================================================================
--- trunk/DBIx-Class/t/76joins.t	2007-04-14 00:02:47 UTC (rev 3188)
+++ trunk/DBIx-Class/t/76joins.t	2007-04-14 00:09:32 UTC (rev 3189)
@@ -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/;
 eval { $sa->_recurse_from(@j6) };
 like( $@, $match, 'join 6 (HASH reference for ON statement dies) ok' );
 
@@ -412,4 +412,4 @@
   local $TODO = 'fixing collapse in -current';
 is_deeply( $prefetch_result, $nonpre_result,
     'Compare 2 level prefetch result to non-prefetch result' );
-}
\ No newline at end of file
+}