The regex error was on line 103 for me but anyway....
Change:
...to....
Change:
Quote:
(-e "$auth_dir/$db_uid") and ($db_uid =~ /^[\A-Za-z0-9]+\.\d+$/)...to....
Quote:
(-e "$auth_dir/$db_uid") and ($db_uid =~ /^[a-z0-9]+\.\d+$/i)