X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSQLMaker%2FACCESS.pm;h=d8bfa2c0aec58729b91bc91cbcca1d71f76e61b8;hb=4a0eed52f392b2e135385d0c06b06160200f3772;hp=aec276dec89ab6f7ec1cc6583641983b60118a46;hpb=726c8f65ef37b47aad62e29a306f64528a00f65d;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/SQLMaker/ACCESS.pm b/lib/DBIx/Class/SQLMaker/ACCESS.pm
index aec276d..d8bfa2c 100644
--- a/lib/DBIx/Class/SQLMaker/ACCESS.pm
+++ b/lib/DBIx/Class/SQLMaker/ACCESS.pm
@@ -5,6 +5,16 @@ use strict;
 use warnings;
 use base 'DBIx::Class::SQLMaker';
 
+# inner joins must be prefixed with 'INNER '
+sub new {
+  my $class = shift;
+  my $self  = $class->next::method(@_);
+
+  $self->{_default_jointype} = 'INNER';
+
+  return $self;
+}
+
 # MSAccess is retarded wrt multiple joins in FROM - it requires a certain
 # way of parenthesizing each left part before each next right part
 sub _recurse_from {
@@ -17,7 +27,7 @@ sub _recurse_from {
     $fin_join = sprintf '( %s ) %s', $fin_join, (shift @j);
   }
 
-  # the entire FROM is *ALSO* expected aprenthesized
+  # the entire FROM is *ALSO* expected parenthesized
   "( $fin_join )";
 }