oraclejoins fix
Matt S Trout [Sat, 12 Oct 2013 15:19:11 +0000 (15:19 +0000)]
lib/DBIx/Class/SQLMaker/Renderer/OracleJoins.pm

index ba512ce..6dde061 100644 (file)
@@ -56,7 +56,7 @@ sub _oracle_joins_recurse_join {
   my ($self, $dq) = @_;
   die "Can't handle cross join" unless $dq->{on};
   my $mangled = { %$dq };
-  delete $mangled->{on};
+  delete @{$mangled}{qw(on outer)};
   my @where;
   my %idents;
   foreach my $side (qw(left right)) {