[sisyphus] Q: PerlIO::via::gzip

[Alexey Tourbin]

Здравствуйте.
А в перле кто-нибудь разбирается?  Нарисовал тут.
Смотрю на это и думаю: ы?

package PerlIO::via::gzip;

use Compress::Zlib qw(gzopen);
use strict;

sub PUSHED {
	my $class = shift;
	bless \my $self, $class;
}

sub FILL {
	my ($self, $fh) = @_;
	$$self ||= gzopen($fh, "r");
	my $n = $$self->gzreadline(my $line);
	$n > 0 ? $line : undef;
}

sub WRITE {
	my ($self, $buf, $fh) = @_;
	$$self ||= gzopen($fh, "w");
	$$self->gzwrite($buf);
}

1;
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Тип     : application/pgp-signature
Размер  : 189 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url     : <http://lists.altlinux.org/pipermail/sisyphus/attachments/20040421/16ce1593/attachment-0003.bin>