Uh, oh. Just found some old Perl code of mine. It's from 1998-05-31: [...] return undef unless defined($findit); return 1; } Well, in my defense: It's Perl. ;-) OK, this can't excuse it. But don't be afraid: The program isn't used anymore.