From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Date: Wed, 28 Feb 2007 20:26:35 +0300 From: Alexey Tourbin To: ALT Devel discussion list Message-ID: <20070228172635.GJ32320@localhost.localdomain> Mail-Followup-To: ALT Devel discussion list References: <20070121123728.7A02E42C0964@ssh.git.local.altlinux.org> <20070228072624.GE32320@localhost.localdomain> <20070228130910.GB1644@basalt.office.altlinux.org> <20070228154659.GF32320@localhost.localdomain> <20070228155527.GG32320@localhost.localdomain> <20070228163837.GI32320@localhost.localdomain> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="lYetfuAxy9ic4HK3" Content-Disposition: inline In-Reply-To: <20070228163837.GI32320@localhost.localdomain> Subject: Re: [devel] [git update] packages/file: tags/4.19-alt2 X-BeenThere: devel@lists.altlinux.org X-Mailman-Version: 2.1.9rc1 Precedence: list Reply-To: ALT Devel discussion list List-Id: ALT Devel discussion list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 28 Feb 2007 17:09:37 -0000 Archived-At: List-Archive: List-Post: --lYetfuAxy9ic4HK3 Content-Type: text/plain; charset=koi8-r Content-Disposition: inline Content-Transfer-Encoding: quoted-printable On Wed, Feb 28, 2007 at 07:38:37PM +0300, Alexey Tourbin wrote: > On Wed, Feb 28, 2007 at 06:55:27PM +0300, Alexey Tourbin wrote: > > > =F0=CF =CB=C1=CB=CF=CD=D5 =D0=D2=C1=D7=C9=CC=D5 =CF=CE =CF=D0=D2=C5= =C4=C5=CC=C9=CC=D3=D1 =CB=C1=CB Perl5 module source text? > >=20 > > $ egrep '^package[ \t]+[A-Za-z][^.;]*;' /usr/lib/perl5/pod/perlfunc.pod > > package in more than one place; it merely influences which symbol table > > $ > >=20 > > =E8=C5-=C8=C5, =CC=C1=D6=C1 =CB=C1=CB=C1=D1. =F3=C5=CA=DE=C1=D3 =C9=D3= =D0=D2=C1=D7=CC=C0. >=20 > =F4=C1=CD =D2=C1=DA=CD=C5=D2 =D2=C5=C7=D5=CC=D1=D2=CE=CF=C7=CF =D7=D9=D2= =C1=D6=C5=CE=C9=D1 =CF=C7=D2=C1=CE=C9=DE=C5=CE 32 =C2=C1=CA=D4=C1=CD=C9. = =F4=CF =C5=D3=D4=D8 =D1 > =CE=CF=D2=CD=C1=CC=D8=CE=CF=C5 =D2=C5=C7=D7=D9=D2=C1=D6=C5=CE=C9=C5 =CE= =C1=D0=C9=D3=C1=CC, =CE=CF =D3=CB=CF=CD=D0=C9=CC=C9=D2=CF=D7=C1=D4=D8 magic= =D4=C5=D0=C5=D2=D8 =CE=C5 > =D0=CF=CC=D5=DE=C1=C5=D4=D3=D1. =E1 =C5=D3=CC=C9 =D5=D7=C5=CC=C9=DE=C9= =D4=D8 =CD=C5=D3=D4=CF =D0=CF=C4 =D3=D4=D2=CF=CB=D5 =D2=C5=C7=D5=CC=D1=D2= =CE=CF=C7=CF =D7=D9=D2=C1=D6=C5=CE=C9=D1, > =D4=CF =CF=CE =CF=D0=D1=D4=D8 =CE=C5 =CB=CF=CD=D0=C9=CC=C9=D2=D5=C5=D4=D3= =D1, =D0=CF=D4=CF=CD=D5 =DE=D4=CF =D4=C1=CD =C6=C9=CB=D3=C9=D2=CF=D7=C1=CE= =CE=CF=C5 =CD=C5=D3=D4=CF =D0=CF=C4 > =C4=C9=D3=CB=CF=D7=D5=C0 =D3=D4=D2=D5=CB=D4=D5=D2=D5. >=20 > 32 =C2=C1=CA=D4=C1 =D0=CF=C4 =D2=C5=C7=D5=CC=D1=D2=CE=CF=C5 =D7=D9=D2=C1= =D6=C5=CE=C9=C5 =C4=CC=D1 =CF=D0=D2=C5=C4=C5=CC=C5=CE=C9=D1 =D4=C9=D0=C1 = =C6=C1=CA=CC=C1 -- =DC=D4=CF =CF=CE=C9 > =C4=D5=D2=C1=CB=C9 =C9=CC=C9 =D0=D2=C9=C4=D5=D2=D1=C0=D4=D3=D1? =FC=D7=D2=C9=CB=C1!! 0 regex ^package[[:space:]]+ 1 >0 regex ^[A-Za-z_][A-Za-z0-9_]* 2 >>0 regex ^(::[A-Za-z_][A-Za-z0-9_]*)* 3 >>>0 regex ^[[:space:]]*; YES $ file -m file/magic/Magdir/perl /usr/lib/perl5/strict.pm /usr/lib/perl5/strict.pm: 1 2 3 YES $ > commit 397f39398ea30bead80d46bb8ccdcb69f34c5b71 > Author: Alexey Tourbin > Date: Wed Feb 28 19:14:33 2007 +0300 >=20 > magic/Magdir/perl: use rigorous regular expression for Perl5 modules >=20 > diff --git a/file/magic/Magdir/perl b/file/magic/Magdir/perl > index 2e989d7..1244b10 100644 > --- a/file/magic/Magdir/perl > +++ b/file/magic/Magdir/perl > @@ -14,7 +14,7 @@ > 0 string eval\ '(exit\ $?0)'\ &&\ eval\ 'exec perl script text > =20 > # a couple more, by ldv > -0 regex \^package[\ \ ]+[A-Za-z][^.;]*; Perl5 module source text > +0 regex \^package[[:space:]]+[A-Za-z_][A-Za-z0-9_]*(::[A-Za-z_][A-Za-z0= -9_]*)*[[:space:]]*; Perl5 module source text > =20 > # Perl POD documents > # From: Tom Hukins > _______________________________________________ > Devel mailing list > Devel@lists.altlinux.org > https://lists.altlinux.org/mailman/listinfo/devel --lYetfuAxy9ic4HK3 Content-Type: application/pgp-signature Content-Disposition: inline -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.6 (GNU/Linux) iD8DBQFF5btLfBKgtDjnu0YRApnYAJ9tybw8LBpI4DuWj46v2kmdHZ2zUQCdEV+P 0TjPYRNAStFv2AFionEuVQ8= =7VZq -----END PGP SIGNATURE----- --lYetfuAxy9ic4HK3--