#!/home/jmc/bin/perl
#
# Silly wrapper for gdb that discards the prompts.


$| = 1;

for $l (<>) {
	$l =~ s/^\(gdb\)\s*/(gdb)\n/;
	$l =~ s/\s*$/\n/;
	print $l;
}