Re: [devel] [git update] packages/file: tags/4.19-alt2

Re: [devel] [git update] packages/file: tags/4.19-alt2

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 2839 bytes --]

On Sun, Jan 21, 2007 at 03:37:28PM +0300, Dmitry V. Levin wrote:
> Update of /people/ldv/packages/file.git
> 
> Tag `4.19-alt2' created by Dmitry V. Levin <ldv@altlinux> at 2007-01-21 12:28:03 +0300
> with the following message:
> 
> file 4.19-alt2
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.4.6 (GNU/Linux)
> 
> iD8DBQBFs1552XqGi/fduzoRAjIYAJ9thH3VkTuw0b4Y0mRzc2ZWtXCAqwCfZiHz
> ywrE9XC1umVH3yYwPplFn1s=
> =l3vL
> -----END PGP SIGNATURE-----
> =======
> 
> Changes statistics since `4.19-alt1' follows:
>  file.spec              |    5 ++++-
>  file/magic/Magdir/perl |   12 ++++++------
>  2 files changed, 10 insertions(+), 7 deletions(-)
> 
> Changelog since `4.19-alt1' follows:
> commit fd2e11e7131c3bfd2ddd3ae73d014e421955bcdb
> Author: Dmitry V. Levin <ldv@altlinux>
> Date:   Sun Jan 21 12:28:03 2007 +0000
> 
>     4.19-alt2
>     
>     - Commented out new "Perl POD documents" magix.
> 
> commit 4e8e63dffcfca052ce55e9868bcc0446f6bf253c
> Author: Dmitry V. Levin <ldv@altlinux>
> Date:   Sun Jan 21 12:26:35 2007 +0000
> 
>     Magdir/perl: Comment out new "Perl POD documents" magix
> 
> Full diff since `4.19-alt1' follows:
> diff --git a/file.spec b/file.spec
> index b6a4f52..9d027a7 100644
> --- a/file.spec
> +++ b/file.spec
> @@ -1,6 +1,6 @@
>  Name: file
>  Version: 4.19
> -Release: alt1
> +Release: alt2
>  
>  Summary: A utility for determining file types
>  License: BSD-style
> @@ -111,6 +111,9 @@ ln -s ../file/magic{,.mime} %buildroot%_datadir/magic/
>  %endif
>  
>  %changelog
> +* Sun Jan 21 2007 Dmitry V. Levin <ldv@altlinux> 4.19-alt2
> +- Commented out new "Perl POD documents" magix.
> +
>  * Mon Jan 15 2007 Dmitry V. Levin <ldv@altlinux> 4.19-alt1
>  - Updated to 4.19.
>  - Merged patches from Debian 4.17-5 and FC 4.19-1 packages.
> diff --git a/file/magic/Magdir/perl b/file/magic/Magdir/perl
> index 7a37b7d..2e989d7 100644
> --- a/file/magic/Magdir/perl
> +++ b/file/magic/Magdir/perl
> @@ -18,12 +18,12 @@
>  
>  # Perl POD documents
>  # From: Tom Hukins <tom@eborcom>
> -0	string/B	\=pod\n		Perl POD document
> -0	string/B	\n\=pod\n	Perl POD document
> -0	string/B	\=head1\ 	Perl POD document
> -0	string/B	\n\=head1\ 	Perl POD document
> -0	string/B	\=head2\ 	Perl POD document
> -0	string/B	\n\=head2\ 	Perl POD document
> +#0	string/B	\=pod\n		Perl POD document
> +#0	string/B	\n\=pod\n	Perl POD document
> +#0	string/B	\=head1\ 	Perl POD document
> +#0	string/B	\n\=head1\ 	Perl POD document
> +#0	string/B	\=head2\ 	Perl POD document
> +#0	string/B	\n\=head2\ 	Perl POD document
>  
>  # Perl Storable data files.
>  0	string	perl-store	perl Storable(v0.6) data

Что-то странное получается.

$ file /usr/lib/perl5/pod/perlfunc.pod
/usr/lib/perl5/pod/perlfunc.pod: Perl5 module source text
$ 

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] [git update] packages/file: tags/4.19-alt2

[Dmitry V. Levin]

[-- Attachment #1: Type: text/plain, Size: 3279 bytes --]

On Wed, Feb 28, 2007 at 10:26:24AM +0300, Alexey Tourbin wrote:
> On Sun, Jan 21, 2007 at 03:37:28PM +0300, Dmitry V. Levin wrote:
> > Update of /people/ldv/packages/file.git
> > 
> > Tag `4.19-alt2' created by Dmitry V. Levin <ldv@altlinux> at 2007-01-21 12:28:03 +0300
> > with the following message:
> > 
> > file 4.19-alt2
> > -----BEGIN PGP SIGNATURE-----
> > Version: GnuPG v1.4.6 (GNU/Linux)
> > 
> > iD8DBQBFs1552XqGi/fduzoRAjIYAJ9thH3VkTuw0b4Y0mRzc2ZWtXCAqwCfZiHz
> > ywrE9XC1umVH3yYwPplFn1s=
> > =l3vL
> > -----END PGP SIGNATURE-----
> > =======
> > 
> > Changes statistics since `4.19-alt1' follows:
> >  file.spec              |    5 ++++-
> >  file/magic/Magdir/perl |   12 ++++++------
> >  2 files changed, 10 insertions(+), 7 deletions(-)
> > 
> > Changelog since `4.19-alt1' follows:
> > commit fd2e11e7131c3bfd2ddd3ae73d014e421955bcdb
> > Author: Dmitry V. Levin <ldv@altlinux>
> > Date:   Sun Jan 21 12:28:03 2007 +0000
> > 
> >     4.19-alt2
> >     
> >     - Commented out new "Perl POD documents" magix.
> > 
> > commit 4e8e63dffcfca052ce55e9868bcc0446f6bf253c
> > Author: Dmitry V. Levin <ldv@altlinux>
> > Date:   Sun Jan 21 12:26:35 2007 +0000
> > 
> >     Magdir/perl: Comment out new "Perl POD documents" magix
> > 
> > Full diff since `4.19-alt1' follows:
> > diff --git a/file.spec b/file.spec
> > index b6a4f52..9d027a7 100644
> > --- a/file.spec
> > +++ b/file.spec
> > @@ -1,6 +1,6 @@
> >  Name: file
> >  Version: 4.19
> > -Release: alt1
> > +Release: alt2
> >  
> >  Summary: A utility for determining file types
> >  License: BSD-style
> > @@ -111,6 +111,9 @@ ln -s ../file/magic{,.mime} %buildroot%_datadir/magic/
> >  %endif
> >  
> >  %changelog
> > +* Sun Jan 21 2007 Dmitry V. Levin <ldv@altlinux> 4.19-alt2
> > +- Commented out new "Perl POD documents" magix.
> > +
> >  * Mon Jan 15 2007 Dmitry V. Levin <ldv@altlinux> 4.19-alt1
> >  - Updated to 4.19.
> >  - Merged patches from Debian 4.17-5 and FC 4.19-1 packages.
> > diff --git a/file/magic/Magdir/perl b/file/magic/Magdir/perl
> > index 7a37b7d..2e989d7 100644
> > --- a/file/magic/Magdir/perl
> > +++ b/file/magic/Magdir/perl
> > @@ -18,12 +18,12 @@
> >  
> >  # Perl POD documents
> >  # From: Tom Hukins <tom@eborcom>
> > -0	string/B	\=pod\n		Perl POD document
> > -0	string/B	\n\=pod\n	Perl POD document
> > -0	string/B	\=head1\ 	Perl POD document
> > -0	string/B	\n\=head1\ 	Perl POD document
> > -0	string/B	\=head2\ 	Perl POD document
> > -0	string/B	\n\=head2\ 	Perl POD document
> > +#0	string/B	\=pod\n		Perl POD document
> > +#0	string/B	\n\=pod\n	Perl POD document
> > +#0	string/B	\=head1\ 	Perl POD document
> > +#0	string/B	\n\=head1\ 	Perl POD document
> > +#0	string/B	\=head2\ 	Perl POD document
> > +#0	string/B	\n\=head2\ 	Perl POD document
> >  
> >  # Perl Storable data files.
> >  0	string	perl-store	perl Storable(v0.6) data
> 
> Что-то странное получается.
> 
> $ file /usr/lib/perl5/pod/perlfunc.pod
> /usr/lib/perl5/pod/perlfunc.pod: Perl5 module source text
> $ 

В этом и был tradeoff: пусть лучше Perl POD document будет распознан как
Perl5 module source text, чем какой-нибудь Perl5 module source text будет
распознан как Perl POD document.


-- 
ldv

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] [git update] packages/file: tags/4.19-alt2

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 495 bytes --]

On Wed, Feb 28, 2007 at 04:09:10PM +0300, Dmitry V. Levin wrote:
> > Что-то странное получается.
> > 
> > $ file /usr/lib/perl5/pod/perlfunc.pod
> > /usr/lib/perl5/pod/perlfunc.pod: Perl5 module source text
> > $ 
> 
> В этом и был tradeoff: пусть лучше Perl POD document будет распознан как
> Perl5 module source text, чем какой-нибудь Perl5 module source text будет
> распознан как Perl POD document.

По какому правилу он определился как Perl5 module source text?

> -- 
> ldv

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] [git update] packages/file: tags/4.19-alt2

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 738 bytes --]

On Wed, Feb 28, 2007 at 06:46:59PM +0300, Alexey Tourbin wrote:
> > > $ file /usr/lib/perl5/pod/perlfunc.pod
> > > /usr/lib/perl5/pod/perlfunc.pod: Perl5 module source text
> > > $ 
> > 
> > В этом и был tradeoff: пусть лучше Perl POD document будет распознан как
> > Perl5 module source text, чем какой-нибудь Perl5 module source text будет
> > распознан как Perl POD document.

По-моему соображение неверное.  Неопределение как POD не поможет
определению как Perl5.

> По какому правилу он определился как Perl5 module source text?

$ egrep '^package[ \t]+[A-Za-z][^.;]*;' /usr/lib/perl5/pod/perlfunc.pod
package in more than one place; it merely influences which symbol table
$

Хе-хе, лажа какая.  Сейчас исправлю.

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] [git update] packages/file: tags/4.19-alt2

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 1466 bytes --]

On Wed, Feb 28, 2007 at 06:55:27PM +0300, Alexey Tourbin wrote:
> > По какому правилу он определился как Perl5 module source text?
> 
> $ egrep '^package[ \t]+[A-Za-z][^.;]*;' /usr/lib/perl5/pod/perlfunc.pod
> package in more than one place; it merely influences which symbol table
> $
> 
> Хе-хе, лажа какая.  Сейчас исправлю.

Там размер регулярного выражения ограничен 32 байтами.  То есть я
нормальное регвыражение написал, но скомпилировать magic теперь не
получается.  А если увеличить место под строку регулярного выражения,
то он опять не компилируется, потому что там фиксированное место под
дисковую структуру.

32 байта под регулярное выражение для определения типа файла -- это они
дураки или придуряются?


commit 397f39398ea30bead80d46bb8ccdcb69f34c5b71
Author: Alexey Tourbin <at@altlinux>
Date:   Wed Feb 28 19:14:33 2007 +0300

    magic/Magdir/perl: use rigorous regular expression for Perl5 modules

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
 
 # 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
 
 # Perl POD documents
 # From: Tom Hukins <tom@eborcom.com>

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] [git update] packages/file: tags/4.19-alt2

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 2116 bytes --]

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:
> > > По какому правилу он определился как Perl5 module source text?
> > 
> > $ egrep '^package[ \t]+[A-Za-z][^.;]*;' /usr/lib/perl5/pod/perlfunc.pod
> > package in more than one place; it merely influences which symbol table
> > $
> > 
> > Хе-хе, лажа какая.  Сейчас исправлю.
> 
> Там размер регулярного выражения ограничен 32 байтами.  То есть я
> нормальное регвыражение написал, но скомпилировать magic теперь не
> получается.  А если увеличить место под строку регулярного выражения,
> то он опять не компилируется, потому что там фиксированное место под
> дисковую структуру.
> 
> 32 байта под регулярное выражение для определения типа файла -- это они
> дураки или придуряются?

Эврика!!

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 <at@altlinux>
> Date:   Wed Feb 28 19:14:33 2007 +0300
> 
>     magic/Magdir/perl: use rigorous regular expression for Perl5 modules
> 
> 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
>  
>  # 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
>  
>  # Perl POD documents
>  # From: Tom Hukins <tom@eborcom.com>



> _______________________________________________
> Devel mailing list
> Devel@lists.altlinux.org
> https://lists.altlinux.org/mailman/listinfo/devel


[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] [git update] packages/file: tags/4.19-alt2

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 462 bytes --]

On Wed, Feb 28, 2007 at 08:26:35PM +0300, Alexey Tourbin wrote:
> Эврика!!
> 
> 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
> $

Нет, это не правильно.

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]