subroutine doesn't seem to run after calling it.

Paul Lalli · *nix forums Guru Joined: 10 Jun 2005 Posts: 1089

Spin wrote:

Spin · *nix forums beginner Joined: 05 May 2005 Posts: 19

I am using PerlTray by ActiveState on Perl 5.8 on WinXP.

I have two subs, the one calling the other:

my @anim = qw(idexx idexx1 idexx2 idexx3);
sub Animate {
SetAnimation(20000, 50, @anim);
}

sub Checkport {
if (($loc ne "") && ($loc ne chr(03))) {
SWITCH: {
... couple other switches in here ...
($inbound_message_type eq "T") && do {
Animate();
... and some other stuff ...
}
}
}
}

If I just add the phrase: Animate(); right after the sub it runs fine.
However in the Checkport sub it will not run. I have other code
immediately following the Animate() call that conclusively verifies I
have reached that part of the subroutine and switch.

Checkport() is called from PerlTray's SetTimer() subroutine.

TIA
Spin

Google