home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / perl / 7923 < prev    next >
Encoding:
Text File  |  1993-01-21  |  963 b   |  32 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!spool.mu.edu!yale.edu!ira.uka.de!news.belwue.de!news.uni-ulm.de!xwini!huober_j
  3. From: huober_j@xwini.rz.uni-ulm.de (Joachim Huober)
  4. Subject: using syscall in perl 4.035
  5. Message-ID: <1993Jan21.090005.5195@wega.rz.uni-ulm.de>
  6. Keywords: syscall
  7. Sender: huober_j@xwini (Joachim Huober)
  8. Organization: Universitaet Ulm
  9. Date: Thu, 21 Jan 1993 09:00:05 GMT
  10. Lines: 20
  11.  
  12. Hi
  13.  
  14. I would like to use sigblock() to block a signal.
  15. I tried to use 
  16.  
  17. require 'syscall.ph';
  18.  
  19. $oldmask = syscall(&SYS_sigblock,$mask); 
  20.  
  21. $mask is a number.
  22. The following happens:
  23. if $mask is less 9 the signalmask ist set correctly.
  24. Example $mask = 7 --> signalmask: (11101100)
  25.                        ^^used by perl itself;
  26. but if I set $mask greater or equal 10 then I get something confusing
  27. Example $mask = 10 --> signalmask: (1000110000001100) :-(
  28. I would expect to get signalmask: (01011100)
  29. Does anyone know how I can set the korrekt signalmask?
  30.  
  31.                 yours Joachim
  32.