EOS
- $sql =~ s/\s*\n\s*/ /g; # easier to read in the debugger
return $sql;
}
EOS
}
- $sql =~ s/\s*\n\s*/ /g; # easier to read in the debugger
return $sql;
}
# since whatever order bindvals there are, they will be realiased
# and need to show up in front of the entire initial inner subquery
- # Unshift *from_bind* to make this happen (horrible, horrible, but
- # we don't have another mechanism yet)
- unshift @{$self->{from_bind}}, @{$self->{order_bind}};
+ # *unshift* the selector bind stack to make this happen (horrible,
+ # horrible, but we don't have another mechanism yet)
+ unshift @{$self->{select_bind}}, @{$self->{order_bind}};
}
# and this is order re-alias magic
$order_by_requested,
) if ( ($offset && $order_by_requested) || ($mid_sel ne $out_sel) );
- $sql =~ s/\s*\n\s*/ /g; # easier to read in the debugger
return $sql;
}
,
);
- $sql =~ s/\s*\n\s*/ /g; # easier to read in the debugger
return $sql;
}