Fixed a bug in pluralization.

[dbsrgits/DBIx-Class-Schema-ResultSetAccessors.git] / lib / DBIx / Class / Schema / ResultSetAccessors.pm

diff --git a/lib/DBIx/Class/Schema/ResultSetAccessors.pm b/lib/DBIx/Class/Schema/ResultSetAccessors.pm
index 63b741d..473d3e3 100644 (file)
--- a/lib/DBIx/Class/Schema/ResultSetAccessors.pm
+++ b/lib/DBIx/Class/Schema/ResultSetAccessors.pm
@@ -53,7 +53,7 @@ sub resultset_accessor_name {
 sub pluralize_resultset_accessor_name {
     my ($self, $original) = @_;
 
-    return join ' ', split /\s+/,
+    return join '_', split /\s+/,
         Lingua::EN::Inflect::Phrase::to_PL(join ' ', split /_/, $original);
 }