[Bast-commits] r8184 - branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader

[jhannah at dev.catalyst.perl.org]

Author: jhannah
Date: 2009-12-30 03:34:04 +0000 (Wed, 30 Dec 2009)
New Revision: 8184

Modified:
   branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader/Base.pm
Log:
Suppress 2nd warning below which makes the test fail.

not ok 3 - Expected loader warning
#   Failed test 'Expected loader warning'
#   at t/lib/dbixcsl_common_tests.pm line 149.
#          got: '4'
#     expected: '3'
# DBIx::Class::Schema::Loader::connection(): loader_test9 has no primary key at (eval 57)[t/lib/dbixcsl_common_te
# Use of uninitialized value in string ne at lib/DBIx/Class/Schema/Loader/Base.pm line 454.
# Dumping manual schema for DBIXCSL_Test::Schema to directory ./t/_common_dump ...
# Schema dump completed.


Modified: branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader/Base.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader/Base.pm	2009-12-30 03:02:03 UTC (rev 8183)
+++ branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader/Base.pm	2009-12-30 03:34:04 UTC (rev 8184)
@@ -453,7 +453,7 @@
         my $fullpath = File::Spec->catfile($prefix, $file);
         return $fullpath if -f $fullpath
             and Cwd::abs_path($fullpath) ne
-                Cwd::abs_path(File::Spec->catfile($self->dump_directory, $file)) || '';
+               (Cwd::abs_path(File::Spec->catfile($self->dump_directory, $file)) || '');
     }
 
     return;