From: Ian Darwin Date: Tue, 16 Feb 1988 09:20:28 +0000 (+0000) Subject: Add magic for Larry Wall's "perl" language. X-Git-Tag: FILE3_27~342 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=f476ea23cee1d8d7e6bcfd127e599fff6478301a;p=file Add magic for Larry Wall's "perl" language. --- diff --git a/magic/Magdir/commands b/magic/Magdir/commands index a9588d82..5218f28a 100644 --- 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 +0 string #!/bin/perl perl commands text +0 string #!\ /bin/perl perl commands text +0 string eval\ "exec\ /bin/perl perl commands text