File: perl-skip-end-of-heredoc

package info (click to toggle)
git 1%3A2.30.2-1%2Bdeb11u2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 53,128 kB
  • sloc: ansic: 237,972; sh: 206,995; perl: 29,970; tcl: 22,151; python: 6,357; makefile: 3,843; javascript: 772; sed: 189; asm: 98; csh: 45; ruby: 43; lisp: 12
file content (8 lines) | stat: -rw-r--r-- 127 bytes parent folder | download | duplicates (20) 
1
2
3
4
5
6
7
8
 
sub RIGHTwithheredocument {
	print <<"EOF"
decoy here-doc
EOF
	# some lines of context
	# to pad it out
	print "ChangeMe\n";
}