From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Wed, 21 Apr 2004 05:46:51 +0400
From: Alexey Tourbin <at@altlinux.ru>
To: Sisyphus <sisyphus@altlinux.ru>
Message-ID: <20040421014651.GE19324@solemn.turbinal.org>
Mail-Followup-To: Sisyphus <sisyphus@altlinux.ru>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="xJK8B5Wah2CMJs8h"
Content-Disposition: inline
Subject: [sisyphus] Q: PerlIO::via::gzip
X-BeenThere: sisyphus@altlinux.ru
X-Mailman-Version: 2.1.4
Precedence: list
Reply-To: ALT Linux Sisyphus discussion list <sisyphus@altlinux.ru>
List-Id: ALT Linux Sisyphus discussion list <sisyphus.altlinux.ru>
List-Unsubscribe: <http://lists.altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/sisyphus>
List-Post: <mailto:sisyphus@altlinux.ru>
List-Help: <mailto:sisyphus-request@altlinux.ru?subject=help>
List-Subscribe: <http://lists.altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Wed, 21 Apr 2004 02:30:06 -0000
Archived-At: <http://lore.altlinux.org/sisyphus/20040421014651.GE19324@solemn.turbinal.org/>
List-Archive: <http://lore.altlinux.org/sisyphus/>


--xJK8B5Wah2CMJs8h
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

=FA=C4=D2=C1=D7=D3=D4=D7=D5=CA=D4=C5.
=E1 =D7 =D0=C5=D2=CC=C5 =CB=D4=CF-=CE=C9=C2=D5=C4=D8 =D2=C1=DA=C2=C9=D2=C1=
=C5=D4=D3=D1?  =EE=C1=D2=C9=D3=CF=D7=C1=CC =D4=D5=D4.
=F3=CD=CF=D4=D2=C0 =CE=C1 =DC=D4=CF =C9 =C4=D5=CD=C1=C0: =D9?

package PerlIO::via::gzip;

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

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

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

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

1;

--xJK8B5Wah2CMJs8h
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)

iD8DBQFAhdKLfBKgtDjnu0YRAgmWAJ48SfiiPM1AltYmxSNYVF7QyPDgUwCgiSdn
8lk96b2NRlhAJO9C89l4qnw=
=RUdL
-----END PGP SIGNATURE-----

--xJK8B5Wah2CMJs8h--