File: perl-bizarre-2

package info (click to toggle)
lintian 2.4.3%2Bsqueeze1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 8,228 kB
  • ctags: 457
  • sloc: perl: 8,492; sh: 5,561; makefile: 1,971; ansic: 143; python: 19; tcl: 4; sed: 2
file content (7 lines) | stat: -rw-r--r-- 225 bytes parent folder | download | duplicates (125) 
1
2
3
4
5
6
7
 
#!/bin/sh
eval 'exec /usr/bin/perl -wS $0 ${1+"$@"}'
    if $running_under_some_shell;

# I'm someone following perlrun except without using the Perl #! line.
# Now something to choke bash.
while (<>) { if (/%#/) { print } }