head 1.1; branch 1.1.1; access; symbols FILE5_48:1.1.1.8 netbsd-11-0-RC4:1.1.1.8 netbsd-11-0-RC3:1.1.1.8 netbsd-11-0-RC2:1.1.1.8 netbsd-11-0-RC1:1.1.1.8 perseant-exfatfs-base-20250801:1.1.1.8 netbsd-11:1.1.1.8.0.4 netbsd-11-base:1.1.1.8 netbsd-10-1-RELEASE:1.1.1.7 perseant-exfatfs-base-20240630:1.1.1.8 perseant-exfatfs:1.1.1.8.0.2 perseant-exfatfs-base:1.1.1.8 netbsd-8-3-RELEASE:1.1.1.7 netbsd-9-4-RELEASE:1.1.1.7 netbsd-10-0-RELEASE:1.1.1.7 netbsd-10-0-RC6:1.1.1.7 netbsd-10-0-RC5:1.1.1.7 netbsd-10-0-RC4:1.1.1.7 netbsd-10-0-RC3:1.1.1.7 netbsd-10-0-RC2:1.1.1.7 netbsd-10-0-RC1:1.1.1.7 FILE5_45:1.1.1.8 netbsd-10:1.1.1.7.0.20 netbsd-10-base:1.1.1.7 FILE5_43:1.1.1.7 netbsd-9-3-RELEASE:1.1.1.7 cjep_sun2x-base1:1.1.1.7 cjep_sun2x:1.1.1.7.0.18 cjep_sun2x-base:1.1.1.7 cjep_staticlib_x-base1:1.1.1.7 netbsd-9-2-RELEASE:1.1.1.7 cjep_staticlib_x:1.1.1.7.0.16 cjep_staticlib_x-base:1.1.1.7 FILE5_40:1.1.1.7 netbsd-9-1-RELEASE:1.1.1.7 FILE5_39:1.1.1.7 phil-wifi-20200421:1.1.1.7 phil-wifi-20200411:1.1.1.7 is-mlppp:1.1.1.7.0.14 is-mlppp-base:1.1.1.7 phil-wifi-20200406:1.1.1.7 netbsd-8-2-RELEASE:1.1.1.7 netbsd-9-0-RELEASE:1.1.1.7 netbsd-9-0-RC2:1.1.1.7 FILE5_38:1.1.1.7 netbsd-9-0-RC1:1.1.1.7 phil-wifi-20191119:1.1.1.7 netbsd-9:1.1.1.7.0.12 netbsd-9-base:1.1.1.7 phil-wifi-20190609:1.1.1.7 netbsd-8-1-RELEASE:1.1.1.7 FILE5_37:1.1.1.7 netbsd-8-1-RC1:1.1.1.7 pgoyette-compat-merge-20190127:1.1.1.7 pgoyette-compat-20190127:1.1.1.7 pgoyette-compat-20190118:1.1.1.7 pgoyette-compat-1226:1.1.1.7 pgoyette-compat-1126:1.1.1.7 pgoyette-compat-1020:1.1.1.7 FILE5_35:1.1.1.7 pgoyette-compat-0930:1.1.1.7 pgoyette-compat-0906:1.1.1.7 netbsd-7-2-RELEASE:1.1.1.5 pgoyette-compat-0728:1.1.1.7 netbsd-8-0-RELEASE:1.1.1.7 phil-wifi:1.1.1.7.0.10 phil-wifi-base:1.1.1.7 pgoyette-compat-0625:1.1.1.7 netbsd-8-0-RC2:1.1.1.7 pgoyette-compat-0521:1.1.1.7 pgoyette-compat-0502:1.1.1.7 pgoyette-compat-0422:1.1.1.7 netbsd-8-0-RC1:1.1.1.7 FILE5_33:1.1.1.7 pgoyette-compat-0415:1.1.1.7 pgoyette-compat-0407:1.1.1.7 pgoyette-compat-0330:1.1.1.7 pgoyette-compat-0322:1.1.1.7 pgoyette-compat-0315:1.1.1.7 netbsd-7-1-2-RELEASE:1.1.1.5 pgoyette-compat:1.1.1.7.0.8 pgoyette-compat-base:1.1.1.7 netbsd-7-1-1-RELEASE:1.1.1.5 matt-nb8-mediatek:1.1.1.7.0.6 matt-nb8-mediatek-base:1.1.1.7 FILE5_32:1.1.1.7 perseant-stdc-iso10646:1.1.1.7.0.4 perseant-stdc-iso10646-base:1.1.1.7 netbsd-8:1.1.1.7.0.2 netbsd-8-base:1.1.1.7 FILE5_31:1.1.1.7 prg-localcount2-base3:1.1.1.6 prg-localcount2-base2:1.1.1.6 prg-localcount2-base1:1.1.1.6 prg-localcount2:1.1.1.6.0.2 prg-localcount2-base:1.1.1.6 pgoyette-localcount-20170426:1.1.1.6 bouyer-socketcan-base1:1.1.1.6 pgoyette-localcount-20170320:1.1.1.6 netbsd-7-1:1.1.1.5.0.12 netbsd-7-1-RELEASE:1.1.1.5 netbsd-7-1-RC2:1.1.1.5 FILE5_30:1.1.1.6 netbsd-7-nhusb-base-20170116:1.1.1.5 bouyer-socketcan:1.1.1.5.0.10 bouyer-socketcan-base:1.1.1.5 pgoyette-localcount-20170107:1.1.1.5 netbsd-7-1-RC1:1.1.1.5 pgoyette-localcount-20161104:1.1.1.5 netbsd-7-0-2-RELEASE:1.1.1.5 localcount-20160914:1.1.1.5 netbsd-7-nhusb:1.1.1.5.0.8 netbsd-7-nhusb-base:1.1.1.5 pgoyette-localcount-20160806:1.1.1.5 pgoyette-localcount-20160726:1.1.1.5 pgoyette-localcount:1.1.1.5.0.6 pgoyette-localcount-base:1.1.1.5 netbsd-7-0-1-RELEASE:1.1.1.5 netbsd-7-0:1.1.1.5.0.4 netbsd-7-0-RELEASE:1.1.1.5 netbsd-7-0-RC3:1.1.1.5 netbsd-7-0-RC2:1.1.1.5 netbsd-7-0-RC1:1.1.1.5 FILE5_22:1.1.1.5 FILE5_20:1.1.1.5 netbsd-6-0-6-RELEASE:1.1.1.2.6.1 netbsd-6-1-5-RELEASE:1.1.1.2.6.1 netbsd-7:1.1.1.5.0.2 netbsd-7-base:1.1.1.5 FILE5_19:1.1.1.5 yamt-pagecache-base9:1.1.1.4 yamt-pagecache-tag8:1.1.1.2.4.2 netbsd-6-1-4-RELEASE:1.1.1.2.6.1 netbsd-6-0-5-RELEASE:1.1.1.2.6.1 tls-earlyentropy:1.1.1.4.0.8 tls-earlyentropy-base:1.1.1.5 riastradh-xf86-video-intel-2-7-1-pre-2-21-15:1.1.1.4 riastradh-drm2-base3:1.1.1.4 netbsd-6-1-3-RELEASE:1.1.1.2.6.1 netbsd-6-0-4-RELEASE:1.1.1.2.6.1 FILE5_16:1.1.1.4 netbsd-6-1-2-RELEASE:1.1.1.2.6.1 netbsd-6-0-3-RELEASE:1.1.1.2.6.1 netbsd-6-1-1-RELEASE:1.1.1.2.6.1 riastradh-drm2-base2:1.1.1.4 riastradh-drm2-base1:1.1.1.4 riastradh-drm2:1.1.1.4.0.2 riastradh-drm2-base:1.1.1.4 netbsd-6-1:1.1.1.2.6.1.0.6 netbsd-6-0-2-RELEASE:1.1.1.2.6.1 netbsd-6-1-RELEASE:1.1.1.2.6.1 khorben-n900:1.1.1.4.0.6 netbsd-6-1-RC4:1.1.1.2.6.1 netbsd-6-1-RC3:1.1.1.2.6.1 agc-symver:1.1.1.4.0.4 agc-symver-base:1.1.1.4 FILE5_14:1.1.1.4 netbsd-6-1-RC2:1.1.1.2.6.1 netbsd-6-1-RC1:1.1.1.2.6.1 yamt-pagecache-base8:1.1.1.4 FILE_5_12:1.1.1.4 netbsd-6-0-1-RELEASE:1.1.1.2.6.1 yamt-pagecache-base7:1.1.1.3 matt-nb6-plus-nbase:1.1.1.2.6.1 yamt-pagecache-base6:1.1.1.3 netbsd-6-0:1.1.1.2.6.1.0.4 netbsd-6-0-RELEASE:1.1.1.2.6.1 netbsd-6-0-RC2:1.1.1.2.6.1 tls-maxphys:1.1.1.3.0.2 tls-maxphys-base:1.1.1.5 matt-nb6-plus:1.1.1.2.6.1.0.2 matt-nb6-plus-base:1.1.1.2.6.1 netbsd-6-0-RC1:1.1.1.2.6.1 yamt-pagecache-base5:1.1.1.3 yamt-pagecache-base4:1.1.1.3 FILE5_11:1.1.1.3 netbsd-6:1.1.1.2.0.6 netbsd-6-base:1.1.1.2 yamt-pagecache-base3:1.1.1.2 yamt-pagecache-base2:1.1.1.2 yamt-pagecache:1.1.1.2.0.4 yamt-pagecache-base:1.1.1.2 FILE5_09:1.1.1.2 cherry-xenmp:1.1.1.2.0.2 cherry-xenmp-base:1.1.1.2 FILE5_07:1.1.1.2 bouyer-quota2-nbase:1.1.1.1 bouyer-quota2:1.1.1.1.0.4 bouyer-quota2-base:1.1.1.1 matt-mips64-premerge-20101231:1.1.1.1 matt-premerge-20091211:1.1.1.1 jym-xensuspend-base:1.1.1.1 jym-xensuspend:1.1.1.1.0.2 jym-xensuspend-nbase:1.1.1.1 FILE5_03:1.1.1.1 CHRISTOS:1.1.1; locks; strict; comment @# @; 1.1 date 2009.05.08.16.35.09; author christos; state Exp; branches 1.1.1.1; next ; 1.1.1.1 date 2009.05.08.16.35.09; author christos; state Exp; branches 1.1.1.1.2.1; next 1.1.1.2; 1.1.1.2 date 2011.05.12.20.47.04; author christos; state Exp; branches 1.1.1.2.4.1 1.1.1.2.6.1; next 1.1.1.3; 1.1.1.3 date 2012.02.22.17.48.38; author christos; state Exp; branches 1.1.1.3.2.1; next 1.1.1.4; 1.1.1.4 date 2013.01.03.16.27.55; author christos; state Exp; branches 1.1.1.4.8.1; next 1.1.1.5; 1.1.1.5 date 2014.06.13.01.48.25; author christos; state Exp; branches 1.1.1.5.6.1 1.1.1.5.10.1; next 1.1.1.6; commitid jtTYsE5FmJU6MiEx; 1.1.1.6 date 2017.02.10.17.42.59; author christos; state Exp; branches; next 1.1.1.7; commitid HAP3kn9Hn6ovMqFz; 1.1.1.7 date 2017.05.24.23.59.57; author christos; state Exp; branches; next 1.1.1.8; commitid WbyOU2LBE5qOyHSz; 1.1.1.8 date 2023.08.18.18.36.51; author christos; state Exp; branches; next ; commitid IX26ghc1E2S0AiBE; 1.1.1.1.2.1 date 2009.05.08.16.35.09; author jym; state dead; branches; next 1.1.1.1.2.2; 1.1.1.1.2.2 date 2009.05.13.18.51.59; author jym; state Exp; branches; next ; 1.1.1.2.4.1 date 2012.04.17.00.03.08; author yamt; state Exp; branches; next 1.1.1.2.4.2; 1.1.1.2.4.2 date 2013.01.23.00.04.35; author yamt; state Exp; branches; next ; 1.1.1.2.6.1 date 2012.03.07.23.18.27; author riz; state Exp; branches; next ; 1.1.1.3.2.1 date 2013.02.25.00.26.06; author tls; state Exp; branches; next 1.1.1.3.2.2; 1.1.1.3.2.2 date 2014.08.19.23.46.47; author tls; state Exp; branches; next ; commitid jTnpym9Qu0o4R1Nx; 1.1.1.4.8.1 date 2014.08.10.07.07.10; author tls; state Exp; branches; next ; commitid b1wUlsZGswrdGMLx; 1.1.1.5.6.1 date 2017.03.20.06.52.20; author pgoyette; state Exp; branches; next ; commitid jjw7cAwgyKq7RfKz; 1.1.1.5.10.1 date 2017.04.21.16.51.24; author bouyer; state Exp; branches; next ; commitid dUG7nkTKALCadqOz; desc @@ 1.1 log @Initial revision @ text @#------------------------------------------------------------------------------ # perl: file(1) magic for Larry Wall's perl language. # # The `eval' lines recognizes an outrageously clever hack. # Keith Waclena # Send additions to 0 search/1/b #!\ /bin/perl Perl script text executable !:mime text/x-perl 0 search/1 eval\ "exec\ /bin/perl Perl script text !:mime text/x-perl 0 search/1/b #!\ /usr/bin/perl Perl script text executable !:mime text/x-perl 0 search/1 eval\ "exec\ /usr/bin/perl Perl script text !:mime text/x-perl 0 search/1/b #!\ /usr/local/bin/perl Perl script text executable !:mime text/x-perl 0 search/1 eval\ "exec\ /usr/local/bin/perl Perl script text !:mime text/x-perl 0 search/1 eval\ '(exit\ $?0)'\ &&\ eval\ 'exec Perl script text !:mime text/x-perl # by Dmitry V. Levin and Alexey Tourbin # check the first line 0 search/1 package >0 regex \^package[\ \t]+[0-9A-Za-z_:]+\ *; Perl5 module source text # not 'p', check other lines 0 search/1 !p >0 regex \^package[\ \t]+[0-9A-Za-z_:]+\ *; >>0 regex \^1\ *;|\^(use|sub|my)\ .*[(;{=] Perl5 module source text # Perl POD documents # From: Tom Hukins 0 search/1/B \=pod\n Perl POD document text 0 search/1/B \n\=pod\n Perl POD document text 0 search/1/B \=head1\ Perl POD document text 0 search/1/B \n\=head1\ Perl POD document text 0 search/1/B \=head2\ Perl POD document text 0 search/1/B \n\=head2\ Perl POD document text # 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.1.1.1 log @from ftp.astron.com @ text @@ 1.1.1.2 log @from ftp.astron.com. - many security related fixes - no MAXPATHLEN limits - fixed missing text specification on ascii magic - new ``pascal'' style string formats - whitespace comparison fix - more magic @ text @a0 1 a1 1 # $File: perl,v 1.16 2009/09/19 16:28:11 christos Exp $ d7 1 a7 1 0 search/1/w #!\ /bin/perl Perl script text executable d11 1 a11 1 0 search/1/w #!\ /usr/bin/perl Perl script text executable d15 1 a15 1 0 search/1/w #!\ /usr/local/bin/perl Perl script text executable d36 6 a41 6 0 search/1/W \=pod\n Perl POD document text 0 search/1/W \n\=pod\n Perl POD document text 0 search/1/W \=head1\ Perl POD document text 0 search/1/W \n\=head1\ Perl POD document text 0 search/1/W \=head2\ Perl POD document text 0 search/1/W \n\=head2\ Perl POD document text @ 1.1.1.2.4.1 log @sync with head @ text @d1 1 d3 1 a3 1 # $File: perl,v 1.17 2011/12/16 16:24:40 rrt Exp $ d23 1 a23 4 0 search/1 #!/usr/bin/env\ perl Perl script text executable !:mime text/x-perl 0 search/1 #!\ /usr/bin/env\ perl Perl script text executable !:mime text/x-perl @ 1.1.1.2.4.2 log @sync with head @ text @d2 1 a2 1 # $File: perl,v 1.20 2012/06/21 01:16:49 christos Exp $ a30 1 !:strength + 10 d35 2 a36 1 !:strength + 10 a45 3 0 search/1/W \=encoding\ Perl POD document text 0 search/1/W \n\=encoding\ Perl POD document text @ 1.1.1.2.6.1 log @Pull up following revision(s) (requested by christos in ticket #30): Update file to 5.11 (CDF security fixes) @ text @d1 1 d3 1 a3 1 # $File: perl,v 1.17 2011/12/16 16:24:40 rrt Exp $ d23 1 a23 4 0 search/1 #!/usr/bin/env\ perl Perl script text executable !:mime text/x-perl 0 search/1 #!\ /usr/bin/env\ perl Perl script text executable !:mime text/x-perl @ 1.1.1.3 log @from ftp.astron.com, CDF security fixes @ text @d1 1 d3 1 a3 1 # $File: perl,v 1.17 2011/12/16 16:24:40 rrt Exp $ d23 1 a23 4 0 search/1 #!/usr/bin/env\ perl Perl script text executable !:mime text/x-perl 0 search/1 #!\ /usr/bin/env\ perl Perl script text executable !:mime text/x-perl @ 1.1.1.3.2.1 log @resync with head @ text @d2 1 a2 1 # $File: perl,v 1.20 2012/06/21 01:16:49 christos Exp $ a30 1 !:strength + 10 d35 2 a36 1 !:strength + 10 a45 3 0 search/1/W \=encoding\ Perl POD document text 0 search/1/W \n\=encoding\ Perl POD document text @ 1.1.1.3.2.2 log @Rebase to HEAD as of a few days ago. @ text @d2 1 a2 1 # $File: perl,v 1.22 2014/04/28 12:04:35 christos Exp $ d8 2 d12 2 d16 2 a25 3 0 search/1 #! >0 regex \^#!.*/bin/perl$ Perl script text executable !:mime text/x-perl a62 31 # This is Debian #742949 by Zefram : # ----------------------------------------------------------- # The Perl module Hash::SharedMem # defines a file format # for a key/value store. Details of the file format are in the "DESIGN" # file in the module distribution. Magic: 0 bequad =0xa58afd185cbf5af7 Hash::SharedMem master file, big-endian >8 bequad <0x1000000 >>15 byte >2 \b, line size 2^%d byte >>14 byte >2 \b, page size 2^%d byte >>13 byte &1 >>>13 byte >1 \b, max fanout %d 0 lequad =0xa58afd185cbf5af7 Hash::SharedMem master file, little-endian >8 lequad <0x1000000 >>8 byte >2 \b, line size 2^%d byte >>9 byte >2 \b, page size 2^%d byte >>10 byte &1 >>>10 byte >1 \b, max fanout %d 0 bequad =0xc693dac5ed5e47c2 Hash::SharedMem data file, big-endian >8 bequad <0x1000000 >>15 byte >2 \b, line size 2^%d byte >>14 byte >2 \b, page size 2^%d byte >>13 byte &1 >>>13 byte >1 \b, max fanout %d 0 lequad =0xc693dac5ed5e47c2 Hash::SharedMem data file, little-endian >8 lequad <0x1000000 >>8 byte >2 \b, line size 2^%d byte >>9 byte >2 \b, page size 2^%d byte >>10 byte &1 >>>10 byte >1 \b, max fanout %d @ 1.1.1.4 log @from ftp.astron.com @ text @d2 1 a2 1 # $File: perl,v 1.20 2012/06/21 01:16:49 christos Exp $ a30 1 !:strength + 10 d35 2 a36 1 !:strength + 10 a45 3 0 search/1/W \=encoding\ Perl POD document text 0 search/1/W \n\=encoding\ Perl POD document text @ 1.1.1.4.8.1 log @Rebase. @ text @d2 1 a2 1 # $File: perl,v 1.22 2014/04/28 12:04:35 christos Exp $ d8 2 d12 2 d16 2 a25 3 0 search/1 #! >0 regex \^#!.*/bin/perl$ Perl script text executable !:mime text/x-perl a62 31 # This is Debian #742949 by Zefram : # ----------------------------------------------------------- # The Perl module Hash::SharedMem # defines a file format # for a key/value store. Details of the file format are in the "DESIGN" # file in the module distribution. Magic: 0 bequad =0xa58afd185cbf5af7 Hash::SharedMem master file, big-endian >8 bequad <0x1000000 >>15 byte >2 \b, line size 2^%d byte >>14 byte >2 \b, page size 2^%d byte >>13 byte &1 >>>13 byte >1 \b, max fanout %d 0 lequad =0xa58afd185cbf5af7 Hash::SharedMem master file, little-endian >8 lequad <0x1000000 >>8 byte >2 \b, line size 2^%d byte >>9 byte >2 \b, page size 2^%d byte >>10 byte &1 >>>10 byte >1 \b, max fanout %d 0 bequad =0xc693dac5ed5e47c2 Hash::SharedMem data file, big-endian >8 bequad <0x1000000 >>15 byte >2 \b, line size 2^%d byte >>14 byte >2 \b, page size 2^%d byte >>13 byte &1 >>>13 byte >1 \b, max fanout %d 0 lequad =0xc693dac5ed5e47c2 Hash::SharedMem data file, little-endian >8 lequad <0x1000000 >>8 byte >2 \b, line size 2^%d byte >>9 byte >2 \b, page size 2^%d byte >>10 byte &1 >>>10 byte >1 \b, max fanout %d @ 1.1.1.5 log @import file-5.19 2014-06-09 9:04 Christos Zoulas * Misc buffer overruns and missing buffer size tests in cdf parsing (Francisco Alonso, Jan Kaluza) 2014-06-02 14:50 Christos Zoulas * Enforce limit of 8K on regex searches that have no limits * Allow the l modifier for regex to mean line count. Default to byte count. If line count is specified, assume a max of 80 characters per line to limit the byte count. * Don't allow conversions to be used for dates, allowing the mask field to be used as an offset. 2014-05-30 12:51 Christos Zoulas * Make the range operator limit the length of the regex search. 2014-05-14 19:23 Christos Zoulas * PR/347: Windows fixes * PR/352: Hangul word processor recognition * PR/354: Encoding irregularities in text files 2014-05-06 6:12 Christos Zoulas * Fix uninitialized title in CDF files (Jan Kaluza) 2014-05-04 14:55 Christos Zoulas * PR/351: Fix compilation of empty files 2014-04-30 17:39 Christos Zoulas * Fix integer formats: We don't specify 'l' or 'h' and 'hh' specifiers anymore, only 'll' for quads and nothing for the rest. This is so that magic writing is simpler. 2014-04-01 15:25 Christos Zoulas * PR/341: Jan Kaluza, fix memory leak * PR/342: Jan Kaluza, fix out of bounds read 2014-03-28 15:25 Christos Zoulas * Fix issue with long formats not matching fmtcheck @ text @d2 1 a2 1 # $File: perl,v 1.22 2014/04/28 12:04:35 christos Exp $ d8 2 d12 2 d16 2 a25 3 0 search/1 #! >0 regex \^#!.*/bin/perl$ Perl script text executable !:mime text/x-perl a62 31 # This is Debian #742949 by Zefram : # ----------------------------------------------------------- # The Perl module Hash::SharedMem # defines a file format # for a key/value store. Details of the file format are in the "DESIGN" # file in the module distribution. Magic: 0 bequad =0xa58afd185cbf5af7 Hash::SharedMem master file, big-endian >8 bequad <0x1000000 >>15 byte >2 \b, line size 2^%d byte >>14 byte >2 \b, page size 2^%d byte >>13 byte &1 >>>13 byte >1 \b, max fanout %d 0 lequad =0xa58afd185cbf5af7 Hash::SharedMem master file, little-endian >8 lequad <0x1000000 >>8 byte >2 \b, line size 2^%d byte >>9 byte >2 \b, page size 2^%d byte >>10 byte &1 >>>10 byte >1 \b, max fanout %d 0 bequad =0xc693dac5ed5e47c2 Hash::SharedMem data file, big-endian >8 bequad <0x1000000 >>15 byte >2 \b, line size 2^%d byte >>14 byte >2 \b, page size 2^%d byte >>13 byte &1 >>>13 byte >1 \b, max fanout %d 0 lequad =0xc693dac5ed5e47c2 Hash::SharedMem data file, little-endian >8 lequad <0x1000000 >>8 byte >2 \b, line size 2^%d byte >>9 byte >2 \b, page size 2^%d byte >>10 byte &1 >>>10 byte >1 \b, max fanout %d @ 1.1.1.5.10.1 log @Sync with HEAD @ text @d2 1 a2 1 # $File: perl,v 1.25 2016/06/07 23:28:37 rrt Exp $ d8 1 a8 1 0 search/1024 eval\ "exec\ perl Perl script text d10 1 a10 1 0 search/1024 eval\ "exec\ /bin/perl Perl script text d12 1 a12 1 0 search/1024 eval\ "exec\ /usr/bin/perl Perl script text d14 1 a14 1 0 search/1024 eval\ "exec\ /usr/local/bin/perl Perl script text d16 1 a16 1 0 search/1024 eval\ 'exec\ perl Perl script text d18 1 a18 1 0 search/1024 eval\ 'exec\ /bin/perl Perl script text d20 2 a21 12 0 search/1024 eval\ 'exec\ /usr/bin/perl Perl script text !:mime text/x-perl 0 search/1024 eval\ 'exec\ /usr/local/bin/perl Perl script text !:mime text/x-perl 0 search/1024 eval\ '(exit\ $?0)'\ &&\ eval\ 'exec Perl script text !:mime text/x-perl 0 string #!/usr/bin/env\ perl Perl script text executable !:mime text/x-perl 0 string #!\ /usr/bin/env\ perl Perl script text executable !:mime text/x-perl 0 string #! >0 regex \^#!.*/bin/perl([[:space:]].*)*$ Perl script text executable d26 1 a26 1 0 search/1024 package d30 1 a30 1 0 search/1024 !p d37 8 a44 8 0 search/1024/W \=pod\n Perl POD document text 0 search/1024/W \n\=pod\n Perl POD document text 0 search/1024/W \=head1\ Perl POD document text 0 search/1024/W \n\=head1\ Perl POD document text 0 search/1024/W \=head2\ Perl POD document text 0 search/1024/W \n\=head2\ Perl POD document text 0 search/1024/W \=encoding\ Perl POD document text 0 search/1024/W \n\=encoding\ Perl POD document text @ 1.1.1.5.6.1 log @Sync with HEAD @ text @d2 1 a2 1 # $File: perl,v 1.25 2016/06/07 23:28:37 rrt Exp $ d8 1 a8 1 0 search/1024 eval\ "exec\ perl Perl script text d10 1 a10 1 0 search/1024 eval\ "exec\ /bin/perl Perl script text d12 1 a12 1 0 search/1024 eval\ "exec\ /usr/bin/perl Perl script text d14 1 a14 1 0 search/1024 eval\ "exec\ /usr/local/bin/perl Perl script text d16 1 a16 1 0 search/1024 eval\ 'exec\ perl Perl script text d18 1 a18 1 0 search/1024 eval\ 'exec\ /bin/perl Perl script text d20 2 a21 12 0 search/1024 eval\ 'exec\ /usr/bin/perl Perl script text !:mime text/x-perl 0 search/1024 eval\ 'exec\ /usr/local/bin/perl Perl script text !:mime text/x-perl 0 search/1024 eval\ '(exit\ $?0)'\ &&\ eval\ 'exec Perl script text !:mime text/x-perl 0 string #!/usr/bin/env\ perl Perl script text executable !:mime text/x-perl 0 string #!\ /usr/bin/env\ perl Perl script text executable !:mime text/x-perl 0 string #! >0 regex \^#!.*/bin/perl([[:space:]].*)*$ Perl script text executable d26 1 a26 1 0 search/1024 package d30 1 a30 1 0 search/1024 !p d37 8 a44 8 0 search/1024/W \=pod\n Perl POD document text 0 search/1024/W \n\=pod\n Perl POD document text 0 search/1024/W \=head1\ Perl POD document text 0 search/1024/W \n\=head1\ Perl POD document text 0 search/1024/W \=head2\ Perl POD document text 0 search/1024/W \n\=head2\ Perl POD document text 0 search/1024/W \=encoding\ Perl POD document text 0 search/1024/W \n\=encoding\ Perl POD document text @ 1.1.1.6 log @2017-02-10 12:24 Christos Zoulas * release 5.30 2017-02-07 23:27 Christos Zoulas * If we exceeded the offset in a search return no match (Christoph Biedl) * Be more lenient on corrupt CDF files (Christoph Biedl) 2017-02-04 16:46 Christos Zoulas * pacify ubsan sign extension (oss-fuzz/524) 2017-02-01 12:42 Christos Zoulas * off by one in cdf parsing (PR/593) * report debugging sections in elf (PR/591) 2016-11-06 10:52 Christos Zoulas * Allow @@@@@@ in extensions * Add missing overflow check in der magic (Jonas Wagner) 2016-10-25 10:40 Christos Zoulas * release 5.29 2016-10-24 11:20 Christos Zoulas * der getlength overflow (Jonas Wagner) * multiple magic file load failure (Christoph Biedl) 2016-10-17 11:26 Christos Zoulas * CDF parsing improvements (Guy Helmer) 2016-07-20 7:26 Christos Zoulas * Add support for signed indirect offsets 2016-07-18 7:41 Christos Zoulas * cat /dev/null | file - should print empty (Christoph Biedl) 2016-07-05 15:20 Christos Zoulas * Bump string size from 64 to 96. 2016-06-13 20:20 Christos Zoulas * PR/556: Fix separators on annotations. 2016-06-13 19:40 Christos Zoulas * release 5.28 * fix leak on allocation failure 2016-06-01 1:20 Christos Zoulas * PR/555: Avoid overflow for offset > nbytes * PR/550: Segv on DER parsing: - use the correct variable for length - set offset to 0 on failure. 2016-05-13 12:00 Christos Zoulas * release 5.27 2016-04-18 9:35 Christos Zoulas * Errors comparing DER entries or computing offsets are just indications of malformed non-DER files. Don't print them. * Offset comparison was off-by-one. * Fix compression code (Werner Fink) * Put new bytes constant in the right file (not the generated one) 2016-04-16 18:34 Christos Zoulas * release 5.26 2016-03-31 13:50 Christos Zoulas * make the number of bytes read from files configurable. 2016-03-21 13:40 Christos Zoulas * Add bounds checks for DER code (discovered by Thomas Jarosch) * Change indirect recursion limit to indirect use count and bump from 15 to 50 to prevent abuse. 2016-03-13 20:39 Christos Zoulas * Add -00 which prints filename\0description\0 2016-03-01 13:28 Christos Zoulas * Fix ID3 indirect parsing 2016-01-19 10:18 Christos Zoulas * add DER parsing capability 2015-11-13 10:35 Christos Zoulas * provide dprintf(3) for the OS's that don't have it. 2015-11-11 16:25 Christos Zoulas * redo the compression code report decompression errors 2015-11-10 23:25 Christos Zoulas * REG_STARTEND code is not working as expected, delete it. 2015-11-09 16:05 Christos Zoulas * Add zlib support if we have it. 2015-11-05 11:22 Christos Zoulas * PR/492: compression forking was broken with magic_buffer. 2015-09-16 9:50 Christos Zoulas * release 5.25 2015-09-11 13:25 Christos Zoulas * add a limit to the length of regex searches 2015-09-08 9:50 Christos Zoulas * fix problems with --parameter (Christoph Biedl) 2015-07-11 10:35 Christos Zoulas * Windows fixes PR/466 (Jason Hood) 2015-07-09 10:35 Christos Zoulas * release 5.24 2015-06-11 8:52 Christos Zoulas * redo long option encoding to fix off-by-one in 5.23 2015-06-10 13:50 Christos Zoulas * release 5.23 2015-06-09 16:10 Christos Zoulas * Fix issue with regex range for magic with offset * Always return true from mget with USE (success to mget not match indication). Fixes mime evaluation after USE magic * PR/459: Don't insert magic entries to the list if there are parsing errors for them. 2015-06-03 16:00 Christos Zoulas * PR/455: Add utf-7 encoding 2015-06-03 14:30 Christos Zoulas * PR/455: Implement -Z, look inside, but don't report on compression * PR/454: Fix allocation error on bad magic. 2015-05-29 10:30 Christos Zoulas * handle MAGIC_CONTINUE everywhere, not just in softmagic 2015-05-21 14:30 Christos Zoulas * don't print descriptions for NAME types when mime. 2015-04-09 15:59 Christos Zoulas * Add --extension to list the known extensions for this file type Idea by Andrew J Roazen 2015-02-14 12:23 Christos Zoulas * Bump file search buffer size to 1M. 2015-01-09 14:35 Christos Zoulas * Fix multiple issues with date formats reported by Christoph Biedl: - T_LOCAL meaning was reversed - Arithmetic did not work Also stop adjusting daylight savings for gmt printing. 2015-01-05 13:00 Christos Zoulas * PR/411: Fix memory corruption from corrupt cdf file. @ text @d2 1 a2 1 # $File: perl,v 1.25 2016/06/07 23:28:37 rrt Exp $ d8 1 a8 1 0 search/1024 eval\ "exec\ perl Perl script text d10 1 a10 1 0 search/1024 eval\ "exec\ /bin/perl Perl script text d12 1 a12 1 0 search/1024 eval\ "exec\ /usr/bin/perl Perl script text d14 1 a14 1 0 search/1024 eval\ "exec\ /usr/local/bin/perl Perl script text d16 1 a16 1 0 search/1024 eval\ 'exec\ perl Perl script text d18 1 a18 1 0 search/1024 eval\ 'exec\ /bin/perl Perl script text d20 2 a21 12 0 search/1024 eval\ 'exec\ /usr/bin/perl Perl script text !:mime text/x-perl 0 search/1024 eval\ 'exec\ /usr/local/bin/perl Perl script text !:mime text/x-perl 0 search/1024 eval\ '(exit\ $?0)'\ &&\ eval\ 'exec Perl script text !:mime text/x-perl 0 string #!/usr/bin/env\ perl Perl script text executable !:mime text/x-perl 0 string #!\ /usr/bin/env\ perl Perl script text executable !:mime text/x-perl 0 string #! >0 regex \^#!.*/bin/perl([[:space:]].*)*$ Perl script text executable d26 1 a26 1 0 search/1024 package d30 1 a30 1 0 search/1024 !p d37 8 a44 8 0 search/1024/W \=pod\n Perl POD document text 0 search/1024/W \n\=pod\n Perl POD document text 0 search/1024/W \=head1\ Perl POD document text 0 search/1024/W \n\=head1\ Perl POD document text 0 search/1024/W \=head2\ Perl POD document text 0 search/1024/W \n\=head2\ Perl POD document text 0 search/1024/W \=encoding\ Perl POD document text 0 search/1024/W \n\=encoding\ Perl POD document text @ 1.1.1.7 log @Import file-5.31; mostly oss-fuzz found bugs. @ text @d2 1 a2 1 # $File: perl,v 1.26 2017/02/21 18:34:55 christos Exp $ d36 1 a36 1 0 search/8192 package d38 1 a38 1 !:strength + 40 d40 1 a40 1 0 search/8192 !p d43 1 a43 1 !:strength + 75 @ 1.1.1.8 log @Update to file-5.45 (Last was file-5.44) 2023-07-27 15:45 Christos Zoulas * release 5.45 2023-07-17 11:53 Christos Zoulas * PR/465: psrok1: Avoid muslc asctime_r crash 2023-05-21 13:05 Christos Zoulas * add SIMH tape format support 2023-02-09 12:50 Christos Zoulas * bump the max size of the elf section notes to be read to 128K and make it configurable 2023-01-08 1:08 Christos Zoulas * PR/415: Fix decompression with program returning empty 2022-12-26 1:47 Christos Zoulas * PR/408: fix -p with seccomp * PR/412: fix MinGW compilation @ text @d2 1 a2 1 # $File: perl,v 1.27 2023/07/17 16:01:36 christos Exp $ d37 1 a37 1 >0 regex \^package[[:space:]]+[0-9A-Za-z_:]+[[:space:]]*([[:space:]]v?[0-9][0-9.]*)?[[:space:]]*; Perl5 module source text d41 2 a42 2 >0 regex \^package[[:space:]]+[0-9A-Za-z_:]+[[:space:]]*([[:space:]]v?[0-9][0-9.]*)?[[:space:]]*; >>0 regex \^1[[:space:]]*;|\^(use|sub|my)[[:space:]].*[(;{=] Perl5 module source text @ 1.1.1.1.2.1 log @file perl was added on branch jym-xensuspend on 2009-05-13 18:51:59 +0000 @ text @d1 55 @ 1.1.1.1.2.2 log @Sync with HEAD. Second commit. See http://mail-index.netbsd.org/source-changes/2009/05/13/msg221222.html @ text @a0 55 #------------------------------------------------------------------------------ # perl: file(1) magic for Larry Wall's perl language. # # The `eval' lines recognizes an outrageously clever hack. # Keith Waclena # Send additions to 0 search/1/b #!\ /bin/perl Perl script text executable !:mime text/x-perl 0 search/1 eval\ "exec\ /bin/perl Perl script text !:mime text/x-perl 0 search/1/b #!\ /usr/bin/perl Perl script text executable !:mime text/x-perl 0 search/1 eval\ "exec\ /usr/bin/perl Perl script text !:mime text/x-perl 0 search/1/b #!\ /usr/local/bin/perl Perl script text executable !:mime text/x-perl 0 search/1 eval\ "exec\ /usr/local/bin/perl Perl script text !:mime text/x-perl 0 search/1 eval\ '(exit\ $?0)'\ &&\ eval\ 'exec Perl script text !:mime text/x-perl # by Dmitry V. Levin and Alexey Tourbin # check the first line 0 search/1 package >0 regex \^package[\ \t]+[0-9A-Za-z_:]+\ *; Perl5 module source text # not 'p', check other lines 0 search/1 !p >0 regex \^package[\ \t]+[0-9A-Za-z_:]+\ *; >>0 regex \^1\ *;|\^(use|sub|my)\ .*[(;{=] Perl5 module source text # Perl POD documents # From: Tom Hukins 0 search/1/B \=pod\n Perl POD document text 0 search/1/B \n\=pod\n Perl POD document text 0 search/1/B \=head1\ Perl POD document text 0 search/1/B \n\=head1\ Perl POD document text 0 search/1/B \=head2\ Perl POD document text 0 search/1/B \n\=head2\ Perl POD document text # 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) @