[thirdparty/squid.git] / tools / helper-ok-dying.pl

#!/usr/bin/perl

$|=1;
while (<>) {
	print "OK\n";
}
print STDERR "stdin closed, exit\n";
Commit	Line	Data
e3d9712e AJ	1	#!/usr/bin/perl
	2
	3	$\|=1;
	4	while (<>) {
	5	print "OK\n";
	6	}
	7	print STDERR "stdin closed, exit\n";