File: perl-bizarre-2

package info (click to toggle)
lintian 1.23.28%2Betch1
  • links: PTS
  • area: main
  • in suites: etch
  • size: 2,044 kB
  • ctags: 295
  • sloc: perl: 5,038; makefile: 702; python: 431; sh: 329; ansic: 30; tcl: 4; sed: 1
file content (7 lines) | stat: -rw-r--r-- 225 bytes parent folder | download | duplicates (151) 
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 } }