From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Sun, 15 May 2005 22:42:43 +0400
From: Alexey Tourbin <at@altlinux.ru>
To: ALT Devel discussion list <devel@altlinux.ru>
Message-ID: <20050515184242.GO3554@solemn.turbinal.org>
Mail-Followup-To: ALT Devel discussion list <devel@altlinux.ru>
References: <001401c55940$8ee3cd00$64c8a8c0@balefirehome>
	<b966c1e40505151021633e1cc8@mail.gmail.com>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="Ck22u5fw4m2k6hx2"
Content-Disposition: inline
In-Reply-To: <b966c1e40505151021633e1cc8@mail.gmail.com>
Subject: [devel] Re: Fwd: [AMaViS-user] Perl on Linux bug when reading and
	the last line does not terminate by a newline
X-BeenThere: devel@altlinux.ru
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: ALT Devel discussion list <devel@altlinux.ru>
List-Id: ALT Devel discussion list <devel.altlinux.ru>
List-Unsubscribe: <https://lists.altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/devel>
List-Post: <mailto:devel@altlinux.ru>
List-Help: <mailto:devel-request@altlinux.ru?subject=help>
List-Subscribe: <https://lists.altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Sun, 15 May 2005 18:44:37 -0000
Archived-At: <http://lore.altlinux.org/devel/20050515184242.GO3554@solemn.turbinal.org/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>


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

On Sun, May 15, 2005 at 09:21:25PM +0400, Alexey Shabalin wrote:
> =E4=C5=CE=D8 =C4=CF=C2=D2=D9=CA.=20
> =F5 =CE=C1=D3 =D7=D2=CF=C4=C5 =D4=CF=D6=C5 =D3=C1=CD=CF=C5.
> =FE=C5=CD =DC=D4=CF =CD=CF=D6=C5=D4 =C7=D2=CF=DA=C9=D4=D8?

=FC=D4=CF =C7=CF=CE=C5=D7=CF =CB=C1=CB=CF=C5-=D4=CF.

> >  http://marc.theaimsgroup.com/?l=3Damavis-user&m=3D111458535106056

$ echo -n 'xxxx' | perl -e 'undef $!; while(<>){last if $_ eq "\n"}; $!=3D=
=3D0 or die $!'
Bad file descriptor at -e line 1, <> line 1.
$

=FC=D4=CF =D7=CF=D7=D3=C5 =CE=C5 =CF=DB=C9=C2=CB=C1.  $! -- =DC=D4=CF errno=
, =C5=C7=CF =CE=C5=CC=D8=DA=D1 =D7 =D0=D2=CF=C9=DA=D7=CF=CC=D8=CE=CF=CD =CD=
=C5=D3=D4=C5
=D0=D2=CF=C7=D2=C1=CD=CD=D9 =D0=D2=CF=D7=C5=D2=D1=D4=D8, =C1 *=D4=CF=CC=D8=
=CB=CF* =D3=D2=C1=DA=D5 =D0=CF=D3=CC=C5 =D7=D9=DA=CF=D7=C1 =C6=D5=CE=CB=C3=
=C9=C9, =CB=CF=D4=CF=D2=C1=D1
=D7=C5=D2=CE=D5=CC=C1 "=D0=CC=CF=C8=CF=CA =D3=D4=C1=D4=D5=D3" (undef) =C9 =
=CB=CF=D4=CF=D2=C1=D1 =D7 =DC=D4=CF=CD =D3=CC=D5=DE=C1=C5 =C4=CF=CB=D5=CD=
=C5=CE=D4=C9=D2=CF=D7=C1=CE=CE=CF
=D5=D3=D4=C1=CE=C1=D7=CC=C9=D7=C1=C5=D4 errno.  =F4.=C5.
=09
	# =D0=D2=C1=D7=C9=CC=D8=CE=CF=C5 =C9=D3=D0=CF=CC=D8=DA=CF=D7=C1=CE=C9=C5 e=
rrno:
	open(...) or die $!;

	# =D2=C5=C4=C9=D3=CB=C9:
	{ ... }
	$!=3D=3D0 or die $!;

=F0=CF=D3=CD=CF=D4=D2=C9=D4=C5 =D7 errno(3), =D4=C1=CD =D4=CF =D6=C5 =D3=C1=
=CD=CF=C5 =CE=C1=D0=C9=D3=C1=CE=CF.

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

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

iD8DBQFCh5gifBKgtDjnu0YRAgmRAJwIifY6Rm5esQ+pgvqwruc2lAwKVACfeo5r
bd0P+lVsK6ma/i5n7O+kQik=
=x1UF
-----END PGP SIGNATURE-----

--Ck22u5fw4m2k6hx2--