[Catalyst-commits] r13812 - in Catalyst-Model-DBIC-Schema/trunk: . lib/Catalyst/Helper/Model/DBIC

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-12-08 12:05:01 +0000 (Wed, 08 Dec 2010)
New Revision: 13812

Modified:
   Catalyst-Model-DBIC-Schema/trunk/Changes
   Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Helper/Model/DBIC/Schema.pm
Log:
fix bug where non-result files were picked up for Moose check

Modified: Catalyst-Model-DBIC-Schema/trunk/Changes
===================================================================
--- Catalyst-Model-DBIC-Schema/trunk/Changes	2010-12-08 09:27:24 UTC (rev 13811)
+++ Catalyst-Model-DBIC-Schema/trunk/Changes	2010-12-08 12:05:01 UTC (rev 13812)
@@ -1,5 +1,7 @@
 Revision history for Perl extension Catalyst::Model::DBIC::Schema
 
+        - fix bug where non-result files were picked up for Moose check
+
 0.44  Tue Dec  7 03:50:48 UTC 2010
         - do not upgrade non-Moose schemas to use_moose=1 (RT#60558)
         - added col_collision_map => 'column_%s' as default loader option

Modified: Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Helper/Model/DBIC/Schema.pm
===================================================================
--- Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Helper/Model/DBIC/Schema.pm	2010-12-08 09:27:24 UTC (rev 13811)
+++ Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Helper/Model/DBIC/Schema.pm	2010-12-08 12:05:01 UTC (rev 13812)
@@ -416,6 +416,8 @@
 
     try {
         finddepth(sub {
+            return if $File::Find::name !~ /\.pm\z/;
+
             open my $fh, '<', $File::Find::name
                 or die "Could not open $File::Find::name: $!";