Nefungujici hash

[Honza Pazdziora]

On Mon, Apr 03, 2000 at 08:16:30AM +0200, Miroslav Kure wrote:
> 
> $scan = (%lists) ? 1 : 0;
> 
>  LINE: while ($line = <STDIN>) {
>      $this_mail .= $line;
> 
>      if ($scan) {
> 	 if ($line =~ /^To: (.+)/ || $line =~ /^Cc: (.+)/) {
> 	     foreach $list (%lists) {
			    keys

Jinak se taky hodi use strict a -w, protoze ty hlasky o nedefinovanych
hodnotach by Vam napovedely, kde je problem.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
------------------------------------------------------------------------