File: fix-shebang

package info (click to toggle)
linux 6.12.63-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,675,632 kB
  • sloc: ansic: 25,912,022; asm: 269,631; sh: 136,601; python: 65,458; makefile: 55,710; perl: 37,753; xml: 19,284; cpp: 5,895; yacc: 4,927; lex: 2,939; awk: 1,594; sed: 28; ruby: 25
file content (12 lines) | stat: -rwxr-xr-x 398 bytes parent folder | download | duplicates (32) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl -pi

# Change "#!/usr/bin/env perl" to "#!/usr/bin/perl" (policy ยง10.4).
# Other uses of /usr/bin/env should probably be converted as well, but
# policy doesn't specify what to do.
if ($. == 1 && m|^\#!\s*/usr/bin/env\s+(.+)|) {
    if ($1 eq "perl") {
	$_ = "#!/usr/bin/perl\n";
    } else {
	print STDERR "W: Found #!/usr/bin/env $1 and don't know what to substitute\n";
    }
}