2 #------------------------------------------------------------------------------
3 # perl: file(1) magic for Larry Wall's perl language.
5 # The ``eval'' line recognizes an outrageously clever hack for USG systems.
6 # Keith Waclena <keith@cerberus.uchicago.edu>
7 # Send additions to <perl5-porters@perl.org>
8 0 string/b #!\ /bin/perl perl script text executable
9 0 string eval\ "exec\ /bin/perl perl script text
10 0 string/b #!\ /usr/bin/perl perl script text executable
11 0 string eval\ "exec\ /usr/bin/perl perl script text
12 0 string/b #!\ /usr/local/bin/perl perl script text
13 0 string eval\ "exec\ /usr/local/bin/perl perl script text executable
15 # a couple more, by me
16 # XXX: christos matches
17 #0 regex package Perl5 module source text (via regex)
18 0 string package Perl5 module source text