<font size=2 face="sans-serif">I am getting this error &quot;Deep recursion
on subroutine &quot;Storable::nfreeze&quot; at /usr/local/share/perl5/DBIx/Class/ResultSourceHandle.pm
line 95.&quot; in my debug output and then the connection is reset after
the authentication while getting the user role with this sql:</font>
<br>
<br><font size=2 face="sans-serif">SELECT role.role, user.id, user.username,
role.id, role.role FROM user_role me &nbsp;JOIN users user ON user.id =
me.user_id &nbsp;JOIN role role ON role.id = me.role_id WHERE ( user.username
= ? ): 'ksmclane@us.ibm.com'</font>
<br>
<br><font size=2 face="sans-serif">Geberated by this code:</font>
<br>
<br><font size=2 face="sans-serif">my $roles = $c-&gt;model('authdb::UserRole')-&gt;find(
{ 'user.username' =&gt; $username }, {</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; prefetch =&gt; ['user', 'role'],</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; columns =&gt; 'role.role',</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; });</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; $c-&gt;session(role
=&gt; $roles);</font>
<br>
<br><font size=2 face="sans-serif">It was working and then stopped. I had
to change the model, I was using 'authdb::User' but the nested relationships
in my prefetch quit working so I switched to the chid table. Both those
relationships are 'belong_to'. I'm not sure what is going on.<br>
</font>
<br>