Nefungujici hash

[Ludek Finstrle]

>      if ($scan) {
> 	 if ($line =~ /^To: (.+)/ || $line =~ /^Cc: (.+)/) {

Nebylo by lepsi:
         if ($line =~ /^(?:To|Cc): (.+)/) {
??
A co reseni viceradkoveho To, ci Cc?

> 	     foreach $list (%lists) {
> 		 $mailbox = $lists{$list} if ($1 =~ /$list/i);

Tohle je dost divny. Ja bych rekl, ze to nemuze fungovat. Protoze $1
je z vyhledavani, ale ve vyhledavani /$list/ () nejsou a tak bych cekal,
ze $1 se po prvnim pruchodu tohohle nastavi na ''. Jestli tomu tak neni,
Mohl by my nekdo vysvetlil proc ne?
Ja bych zkusil misto toho $1 bych pred foreach my $jezek = $1 a v ifu
nahradil $1 $jezek.

Luf