fix 02pod.t fail for lack of =encoding (RT#79481)

Users report 02pod.t failing due to a UTF-8 character without an
=encoding utf8 statement (arcanez and Marcel Gruenauer.)

For some reason this test passes on my machine, even though I have the
latest Test::Pod.

Marcel Gruenauer sent me a patch to RT which adds the =encoding utf8
statement at the top of the POD, which I added.

I want to use =encoding UTF-8 instead, since that's more correct, but
since I can't test it will leave utf8.

diff --git a/Changes b/Changes
index 1703ce3..52eaf33 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension DBIx::Class::Schema::Loader
 
+        - fix 02pod.t failure due to lack of =encoding utf8 statement (patch by
+          Marcel Gruenauer) (RT#79481)
+
 0.07030  2012-09-06 03:27:09
         - allow user to set qualify_objects=0 in multischema configurations
           (andrewalker)

diff --git a/lib/DBIx/Class/Schema/Loader.pm b/lib/DBIx/Class/Schema/Loader.pm
index f1ba452..1cbe5ee 100644 (file)
--- a/lib/DBIx/Class/Schema/Loader.pm
+++ b/lib/DBIx/Class/Schema/Loader.pm
@@ -29,6 +29,8 @@ __PACKAGE__->mk_group_accessors('inherited', qw/
 /);
 __PACKAGE__->_loader_args({});
 
+=encoding utf8
+
 =head1 NAME
 
 DBIx::Class::Schema::Loader - Create a DBIx::Class::Schema based on a database
@@ -79,7 +81,7 @@ DBIx::Class::Schema::Loader - Create a DBIx::Class::Schema based on a database
   # -or-
   my $schema1 = "My::Schema"; $schema1->connection(as above);
 
-=head1 DESCRIPTION 
+=head1 DESCRIPTION
 
 DBIx::Class::Schema::Loader automates the definition of a
 L<DBIx::Class::Schema> by scanning database table definitions and setting up