head	1.6;
access;
symbols
	file-4_20:1.6
	rpm-4_4_8-release:1.3.2.2
	rpm-4_4_7-release:1.3.2.2
	rpm-4_4_6-release:1.3.2.2
	rpm-4_4_5-release:1.3.2.2
	rpm-4_4_4-release:1.3.2.2
	rpm-4_4_3-release:1.3.2.2
	file-4_16:1.5
	jbj_before_tklcpatches:1.3.2.1
	rpm-4_4_2-release:1.3.2.1
	file-4_14:1.4
	pjones-sparse-experiment:1.4.0.2
	rpm-4_4_1-release:1.3.2.1
	file-4_12:1.4
	rpm-4_4-release:1.3
	rpm-4_4:1.3.0.2
	file-4_10:1.3
	file-4_09:1.3
	rpm-file-before:1.2
	rpm42-file-before:1.2
	rpm43-file-before:1.2
	rpm-4_3_1-start:1.2
	rpm-4_3:1.2.0.4
	rpm-4_2:1.2.0.2;
locks; strict;
comment	@# @;


1.6
date	2007.05.09.19.38.34;	author jbj;	state Exp;
branches;
next	1.5;

1.5
date	2005.10.31.19.48.57;	author jbj;	state Exp;
branches;
next	1.4;

1.4
date	2005.01.02.21.27.19;	author jbj;	state Exp;
branches;
next	1.3;

1.3
date	2004.08.03.20.16.18;	author jbj;	state Exp;
branches
	1.3.2.1;
next	1.2;

1.2
date	2003.04.15.20.04.26;	author jbj;	state Exp;
branches
	1.2.2.1
	1.2.4.1;
next	1.1;

1.1
date	2003.04.15.16.58.36;	author jbj;	state Exp;
branches;
next	;

1.3.2.1
date	2005.01.03.02.02.55;	author jbj;	state Exp;
branches;
next	1.3.2.2;

1.3.2.2
date	2005.11.01.00.58.40;	author jbj;	state Exp;
branches;
next	1.3.2.3;

1.3.2.3
date	2007.05.10.17.39.23;	author jbj;	state Exp;
branches;
next	;

1.2.2.1
date	2003.12.01.21.20.02;	author jbj;	state Exp;
branches;
next	;

1.2.4.1
date	2004.12.07.00.57.38;	author jbj;	state Exp;
branches;
next	;


desc
@@


1.6
log
@Virgin file-4.20.
@
text
@
#------------------------------------------------------------------------------
# perl:  file(1) magic for Larry Wall's perl language.
#
# The ``eval'' line recognizes an outrageously clever hack for USG systems.
# Keith Waclena <keith@@cerberus.uchicago.edu>
# Send additions to <perl5-porters@@perl.org>
0	string/b	#!\ /bin/perl			perl script text executable
0	string		eval\ "exec\ /bin/perl		perl script text
0	string/b	#!\ /usr/bin/perl		perl script text executable
0	string		eval\ "exec\ /usr/bin/perl	perl script text
0	string/b	#!\ /usr/local/bin/perl		perl script text
0	string		eval\ "exec\ /usr/local/bin/perl	perl script text executable
0	string		eval\ '(exit\ $?0)'\ &&\ eval\ 'exec	perl script text


# by Dmitry V. Levin and Alexey Tourbin
# check the first line
0	string		package
>1	regex		\^package[\ \t]+[A-Za-z_]
>>1	regex		\^package[\ \t]+[0-9A-Za-z_:]*\ *;	Perl5 module source text
# not 'p', check other lines
0	byte		!0x70
>0	regex		\^package[\ \t]+[0-9A-Za-z_:]+\ *;
>>0	regex		\^1\ *;|\^(use|sub|my)\ .*[(;{=]	Perl5 module source text



# Perl POD documents
# From: Tom Hukins <tom@@eborcom.com>
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
>4	byte	>0	(net-order %d)
>>4	byte	&01	(network-ordered)
>>4	byte	=3	(major 1)
>>4	byte	=2	(major 1)

0	string	pst0	perl Storable(v0.7) data
>4	byte	>0
>>4	byte	&01	(network-ordered)
>>4	byte	=5	(major 2)
>>4	byte	=4	(major 2)
>>5	byte	>0	(minor %d)
@


1.5
log
@Update to virgin file-4.16.
@
text
@d16 12
a27 4
# a couple more, by me
# XXX: christos matches
#0	regex		package		Perl5 module source text (via regex)
0	string		package		Perl5 module source text
@


1.4
log
@Upgrade to file-4.12.
@
text
@d21 9
@


1.3
log
@Upgrade to file-4.09.
@
text
@d20 14
@


1.3.2.1
log
@Upgrade to file-4.12 (with RH patches).
@
text
@a19 14

# Perl Storable data files.
0	string	perl-store	perl Storable(v0.6) data
>4	byte	>0	(net-order %d)
>>4	byte	&01	(network-ordered)
>>4	byte	=3	(major 1)
>>4	byte	=2	(major 1)

0	string	pst0	perl Storable(v0.7) data
>4	byte	>0
>>4	byte	&01	(network-ordered)
>>4	byte	=5	(major 2)
>>4	byte	=4	(major 2)
>>5	byte	>0	(minor %d)
@


1.3.2.2
log
@- update to file-4.16 internal.
@
text
@a20 9
# Perl POD documents
# From: Tom Hukins <tom@@eborcom.com>
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

@


1.3.2.3
log
@Upgrade to file-4.20 internal.
@
text
@d16 4
a19 12

# by Dmitry V. Levin and Alexey Tourbin
# check the first line
0	string		package
>1	regex		\^package[\ \t]+[A-Za-z_]
>>1	regex		\^package[\ \t]+[0-9A-Za-z_:]*\ *;	Perl5 module source text
# not 'p', check other lines
0	byte		!0x70
>0	regex		\^package[\ \t]+[0-9A-Za-z_:]+\ *;
>>0	regex		\^1\ *;|\^(use|sub|my)\ .*[(;{=]	Perl5 module source text


@


1.2
log
@Merge file-4.02 changes.
@
text
@d14 1
@


1.2.4.1
log
@- port to internal file-4.10 libmagic rather than libfmagic.
@
text
@a13 1
0	string		eval\ '(exit\ $?0)'\ &&\ eval\ 'exec	perl script text
@


1.2.2.1
log
@Merge from top-of-stack.
@
text
@@


1.1
log
@Move magic creation to sub-directory.
@
text
@d18 1
a18 1
#0	string		package		Perl5 module source text
@

