Add magic for Larry Wall's "perl" language.

diff --git a/magic/Magdir/commands b/magic/Magdir/commands
index a9588d8281b389a29de54735fbdcaf455df87271..5218f28a2a68c7a0f59d069242da1585477c03eb 100644 (file)
--- a/magic/Magdir/commands
+++ b/magic/Magdir/commands
@@ -6,7 +6,16 @@
 0      string          #!/bin/awk      awk commands text
 0      string          #!\ /           some kinda commands text
 0      string          #!/             some kinda commands text
+0      string          #!\             commands text
+>3     string          >\0              for %s
 #      An "antique" kernel is either unmodified early V7,
 #      without DMR's 1979 mod for #!, or any kernel
 #      derived from a pre-v7 kernel (i.e., System V)
-0      string          :\              commands for antique kernel text
+0      string          :\              shell archive or commands for antique kernel text
+
+# For Larry Wall's perl language.  The ``eval'' line recognizes an
+# outrageously clever hack for USG systems.
+#                              Keith Waclena <keith@cerberus.uchicago.edu>
+0      string          #!/bin/perl     perl commands text
+0      string          #!\ /bin/perl   perl commands text
+0      string          eval\ "exec\ /bin/perl  perl commands text