From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 12 Oct 2010 09:10:40 +0000 (+0200)
Subject: Fix for RT62072
X-Git-Tag: 0.07003~42
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=61cd4bfc3d10502ab11f7906ada32268fe0bec8c;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

Fix for RT62072
---

diff --git a/Changes b/Changes
index 1b04080..1be260c 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for Perl extension DBIx::Class::Schema::Loader
 
+        - Fix missing require (RT#62072)
+
 0.07002  2010-09-11 01:48:00
         - Properly detect a schema loaded with use_moose on subsequent
           reloads
diff --git a/lib/DBIx/Class/Schema/Loader/Utils.pm b/lib/DBIx/Class/Schema/Loader/Utils.pm
index 8b52e17..a1350c7 100644
--- a/lib/DBIx/Class/Schema/Loader/Utils.pm
+++ b/lib/DBIx/Class/Schema/Loader/Utils.pm
@@ -3,6 +3,7 @@ package # hide from PAUSE
 
 use strict;
 use warnings;
+use Data::Dumper ();
 use Exporter 'import';
 
 our @EXPORT_OK = qw/split_name dumper dumper_squashed eval_without_redefine_warnings/;
@@ -19,8 +20,6 @@ sub split_name($) {
     split $name =~ /[[:upper:]]/ && $name =~ /[[:lower:]]/ ? BY_CASE_TRANSITION : BY_NON_ALPHANUM, $name;
 }
 
-# Stolen from Data::Dumper::Concise
-
 sub dumper($) {
     my $val = shift;