case insensitive hash

[Jiri Polcar]

    Zdravim,

udelal jsem to tak, ze jsem vytvoril novy modul TieFoldedMy, ktery se
lisi jen metodou STORE:

    sub STORE {
      my ($self, $key, $value) = @_;

      if ( ref $value eq 'HASH' ) {
        tie %{$value},  'TieFolded';
      }

      return $self->{lc $key} = $value;
    }   

Pole pak svazu jako:

    tie %{$hash},  'TieFoldedMy';

Tvari se to funkce. Doufam, ze nekde neciha zrada.

--
JP