comparison doc/PERL-HOWTO.dox @ 14692:dd0c43d42394

[gaim-migrate @ 17444] Patch from launchpad bug #64445, from Paul Schulz Fix some typos committer: Tailor Script <tailor@pidgin.im>
author Mark Doliner <mark@kingant.net>
date Sat, 07 Oct 2006 18:19:17 +0000
parents 967dd29cc4ae
children e53cceebebb3
comparison
equal deleted inserted replaced
14691:dbcdef1ab5af 14692:dd0c43d42394
516 Timeouts allow a perl subroutine to be exectued after a specified time. They only occur once, so as stated earlier the timeout must be reregistered after every time it is called. 516 Timeouts allow a perl subroutine to be exectued after a specified time. They only occur once, so as stated earlier the timeout must be reregistered after every time it is called.
517 517
518 @code 518 @code
519 sub timeout_cb { 519 sub timeout_cb {
520 my $plugin = shift; 520 my $plugin = shift;
521 print "Timeout occured."; 521 print "Timeout occurred.";
522 522
523 # Reschedule timeout 523 # Reschedule timeout
524 Gaim::timeout_add($plugin, 10, \&timeout_cb, $plugin); 524 Gaim::timeout_add($plugin, 10, \&timeout_cb, $plugin);
525 } 525 }
526 526