From: Christos Zoulas Date: Sat, 27 Sep 2014 00:12:55 +0000 (+0000) Subject: mention that perl uses BEGIN { X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=6d0ad2bf873d70a7555902b768c9eb9e5cc55a92;p=file mention that perl uses BEGIN { --- diff --git a/magic/Magdir/commands b/magic/Magdir/commands index 20c1058c..3d974892 100644 --- a/magic/Magdir/commands +++ b/magic/Magdir/commands @@ -1,6 +1,6 @@ #------------------------------------------------------------------------------ -# $File: commands,v 1.50 2014/05/30 16:48:44 christos Exp $ +# $File: commands,v 1.51 2014/09/27 00:12:55 christos Exp $ # commands: file(1) magic for various shells and interpreters # #0 string/w : shell archive or script for antique kernel text @@ -56,7 +56,7 @@ !:mime text/x-awk 0 string/wt #!\ /usr/bin/awk awk script text executable !:mime text/x-awk -0 regex/4096 =^\\s{0,100}BEGIN\\s{0,100}[{] awk script text +0 regex/4096 =^\\s{0,100}BEGIN\\s{0,100}[{] awk or perl script text # AT&T Bell Labs' Plan 9 shell 0 string/wt #!\ /bin/rc Plan 9 rc shell script text executable