Skip to main content
Revision e6738d4be8d4ef42f213921351e7e9df79be7d1a authored by Ben Laurie on 02 February 2004, 15:25:30 UTC, committed by Ben Laurie on 02 February 2004, 15:25:30 UTC
Improve test suite.
1 parent 4c6d0b7
Raw File
deleof.pl
#!/usr/local/bin/perl

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