mention that perl uses BEGIN {

diff --git a/magic/Magdir/commands b/magic/Magdir/commands
index bcd0f438e6f72e556c88330630c129df0c6af6e9..23a97fd24c8510dd5f5438dc6b266d57423a0470 100644 (file)
--- a/magic/Magdir/commands
+++ b/magic/Magdir/commands
@@ -1,6 +1,6 @@
 
 #------------------------------------------------------------------------------
-# $File: commands,v 1.49 2014/05/28 19:52:36 christos Exp $
+# $File: commands,v 1.50 2014/05/30 16:48:44 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