Skip to main content
Revision 130ebe34c8e16985c9af740d0c9945f429b77431 authored by Ben Laurie on 04 February 2014, 23:16:46 UTC, committed by Scott Deboy on 09 February 2014, 00:19:30 UTC
Fix whitespace, new-style comments.
1 parent 7612511
Raw File
deleof.pl
#!/usr/local/bin/perl

while (<>)
	{
	print
	last if (/^# DO NOT DELETE THIS LINE/);
	}
back to top