← Back to branch summary

~ubuntu-branches/ubuntu/lucid/perl-tk/lucid

« back to all changes in this revision

Viewing changes to pTk/mTk/tclUnix/tclUnixNotfy.c

  • Committer: Bazaar Package Importer
  • Author(s): Colin Tuckley
  • Date: 2008-02-15 13:56:59 UTC
  • mfrom: (1.1.3 upstream) (4.1.1 hardy)
  • Revision ID: james.westby@ubuntu.com-20080215135659-ru2oqlykuju20fav
Tags: 1:804.028-1
http://bugs.debian.org/463080
http://bugs.debian.org/411129
* New Upstream Release (Closes: #463080).
* Update to Debhelper v5.
* Build with XFT=1 (Closes: #411129).

Show diffs side-by-side

added added

removed removed

Lines of Context:
pTk/mTk/tclUnix/tclUnixNotfy.c
22
22
#include "Lang.h"
23
23
#endif
24
24
#include <signal.h>
 
25
#ifdef _LANG
 
26
#include <errno.h>
 
27
#endif
25
28
 
26
29
#ifdef TCL_EVENT_IMPLEMENT
27
30
 
798
801
    if (numFound == -1) {
799
802
        memset((VOID *) tsdPtr->readyMasks, 0, 3*MASK_SIZE*sizeof(fd_mask));
800
803
    }
 
804
 
 
805
#ifdef _LANG
 
806
    /*
 
807
     * Language-specific check for signals
 
808
     */
 
809
    if (numFound == -1 && errno == EINTR) {
 
810
        LangAsyncCheck();
 
811
    }
 
812
#endif
 
813
 
801
814
#endif
802
815
 
803
816
    /*