[Expectperl-discuss] Is there anyway for $exp->send() to not interfere with next $exp->expect() ?

[Chuck S. <Chu...@me...>]

It appears that whenever I use send(), the next expect() will read the
previous line again and thus causing the send() to occur twice.  I read
the FAQ and it appears this is a common problem?  Has anyone figured out
a workaround?  Thanks.

my $exp = new Expect;
$exp->raw_pty(1);
$exp->spawn("randomApplication.pl");

while ($value != 3) {
	my $value = $exp->expect($timeout,
		[ qr/sender/],
		[ qr/receiver/],
		[ qr/whatever/]
		);

	if ($value == 1) {
		$exp-send("Yes");
	}
	elsif ($value == 2) {
		$exp-send("No");
	}
}