Revert "Do not squash case in table names (MySQL support - J.A. Marsh…

…all, closes #20)" This reverts commit c9a134b. Conflicts: Changes
ollyg · Apr 16, 2013 · b91c597 · b91c597
1 parent 8d9076c
commit b91c597
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,7 @@
 {{$NEXT}}
 
+  * Revert c9a134b (#20) squash table names
+
 2.130410  2013-02-10 14:17:38 Europe/London
 
   * Set default Template Toolkit template encoding to be UTF-8 (N. Arakawa)

diff --git a/lib/SQL/Translator/AutoCRUD/Utils.pm b/lib/SQL/Translator/AutoCRUD/Utils.pm
@@ -13,13 +13,13 @@ sub make_path {
     my $rs = shift;
 
     my $from = ref $rs->from ? ${$rs->from} : $rs->from;
-    return $from if $from =~ m/^\w+$/;
+    return lc $from if $from =~ m/^\w+$/;
 
     my $name = $rs->source_name;
     $name =~ s/([a-z])([A-Z])/$1_$2/g;
     $name =~ s/([a-zA-Z])([0-9])/$1_$2/g;
     $name =~ s/([0-9])([A-Za-z])/$1_$2/g;
-    return $name;
+    return lc $name;
 }
 
 sub make_label {