--- file-4.12/magic/Magdir/perl.orig	2004-11-21 19:34:11 +0300

+++ file-4.12/magic/Magdir/perl	2005-01-05 18:44:01 +0300

@@ -9,14 +9,12 @@

 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/b	#!\ /usr/local/bin/perl		perl script text executable

+0	string		eval\ "exec\ /usr/local/bin/perl	perl script text

 0	string		eval\ '(exit\ $?0)'\ &&\ eval\ 'exec	perl script text

-# a couple more, by me

-# XXX: christos matches

-#0	regex		package		Perl5 module source text (via regex)

-0	string		package		Perl5 module source text

+# a couple more, by ldv

+0	regex		\^package[\ \	]+[A-Za-z][^.;]*;		Perl5 module source text

 # Perl Storable data files.

 0	string	perl-store	perl Storable(v0.6) data