del.icio.us uses perl/mason

And I discovered this tidbit because i hit a bad database handle in their code and they have fatal error display turned on!

---

System error

error:	Can't call method "prepare" on an undefined value at /www/del.icio.us/comp/user/get line 13.
context:	...  9:  my $usedb = 'master'; 10:  my $ret; 11:  12:  if (!$auth_user) { $usedb = 'user' } 13:  if (!exists ($db->{$usedb})) { $usedb = 'master' } 14:  $user_name_q->{$usedb} = $db->{$usedb}->prepare('select * from users where user_name = ?'); 15:  my $query = $user_name_q->{$usedb}; 16:  $query->execute(lc($user_name)); 17:  ...
code stack:	/www/del.icio.us/comp/user/get:13 /www/del.icio.us/site/dhandler:194 /www/del.icio.us/site/autohandler:108

---

I'm surprised they don't use some sort of global cache for prepared statements - that query must get run a LOT.