pq+2008-08-01 12:19:14--

da ist ein grosser teil unnötig.

Code (perl): (dl )

if (ref $hash eq 'HASH' and keys %$hash) {

ref() liefert nämlich bei undef oder keiner ref einfach den leeren string.