Problem se ZLIB

[Jan Matejka]

To je asi chybka, uncompress() zrejme znici argument

use Compress::Zlib;

$c=$b= compress( "aaaa" );
print length($b)," <$b>\n";    # tady je to jeste OK
print uncompress( $b ),"\n";
print length($b)," <$b>\n";    # takdy je to uz BLBE
print length($c)," <$c>\n";

cau
Matej

"Jindrich Kubec" <kubecj na asw.cz> wrote in message
news:385E22F3.38E3CF1F na asw.cz...
> Zdar!
>
> Mam takovy problem: ActiveState perl na W95:
> Pokud udelam:
> use Zlib
> $compressed = compress( "aaaa" );
> print uncompress( $compressed );
>
> Tak to funguje. Ovsem string $compressed se mi jevi jako prazdny. Length
> vraci 0. Jak to?
>
> --
> Jindroush <kubecj na asw.cz>
> See http://www.asw.cz/~kubecj for Atari 8bit utils!