From: Rafael Kitover <rkitover@cpan.org>
Date: Wed, 8 Dec 2010 12:05:01 +0000 (+0000)
Subject: fix bug where non-result files were picked up for Moose check
X-Git-Tag: v0.45~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Model-DBIC-Schema.git;a=commitdiff_plain;h=9a6afcd62b54e736d5847ce3b8782ff9e34f371b;hp=3fff2940bc1582318a51091e16d89b2eedc74b45

fix bug where non-result files were picked up for Moose check
---

diff --git a/Changes b/Changes
index 126f875..d089086 100644
--- a/Changes
+++ b/Changes
@@ -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
diff --git a/lib/Catalyst/Helper/Model/DBIC/Schema.pm b/lib/Catalyst/Helper/Model/DBIC/Schema.pm
index 8b1a68b..e0f98c9 100644
--- a/lib/Catalyst/Helper/Model/DBIC/Schema.pm
+++ b/lib/Catalyst/Helper/Model/DBIC/Schema.pm
@@ -416,6 +416,8 @@ sub _build_is_moose_schema {
 
     try {
         finddepth(sub {
+            return if $File::Find::name !~ /\.pm\z/;
+
             open my $fh, '<', $File::Find::name
                 or die "Could not open $File::Find::name: $!";