mention that perl uses BEGIN {

diff --git a/magic/Magdir/commands b/magic/Magdir/commands
index 20c1058c04f218b0a3c4ad71e82bb86a5c2fed88..3d9748926e22493c188bd84258248c5503d5b25f 100644 (file)
--- 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