[Bast-commits] r6636 - DBIx-Class/0.08/trunk/t

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2009-06-11 20:02:11 +0000 (Thu, 11 Jun 2009)
New Revision: 6636

Modified:
   DBIx-Class/0.08/trunk/t/95sql_maker.t
Log:
Escape filename so that t\9... won't look like octal

Modified: DBIx-Class/0.08/trunk/t/95sql_maker.t
===================================================================
--- DBIx-Class/0.08/trunk/t/95sql_maker.t	2009-06-11 19:29:10 UTC (rev 6635)
+++ DBIx-Class/0.08/trunk/t/95sql_maker.t	2009-06-11 20:02:11 UTC (rev 6636)
@@ -51,6 +51,7 @@
 
 # Make sure the carp/croak override in SQLA works (via SQLAHacks)
 my $file = __FILE__;
+$file = "\Q$file\E";
 throws_ok (sub {
   $schema->resultset ('Artist')->search ({}, { order_by => { -asc => 'stuff', -desc => 'staff' } } )->as_query;
 }, qr/$file/, 'Exception correctly croak()ed');