contrib/file/Magdir/perl

   1
   2 #------------------------------------------------------------------------------
   3 # perl:  file(1) magic for Larry Wall's perl language.
   4 #
   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
  14
  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