home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2.img / usr / lib / perl5 / i586-linux / features.ph < prev   
Encoding:
Text File  |  1995-08-18  |  1.4 KB  |  40 lines
  1. if (!defined &_FEATURES_H) {
  2.     eval 'sub _FEATURES_H {1;}';
  3.     if ((!defined( &_GNU_SOURCE) && !defined( &__STRICT_ANSI__) && !defined( &_POSIX_SOURCE) && !defined( &_POSIX_C_SOURCE) && !defined( &_BSD_SOURCE) && !defined( &_SVID_SOURCE))) {
  4.     eval 'sub _GNU_SOURCE {1;}';
  5.     }
  6.     eval 'sub __USE_ANSI {1;}';
  7.     if (defined &_BSD_SOURCE) {
  8.     eval 'sub __FAVOR_BSD {1;}';
  9.     }
  10.     if ((!defined( &__STRICT_ANSI__) && !defined( &_POSIX_SOURCE) && !defined( &_POSIX_C_SOURCE) && !defined( &_BSD_SOURCE) && !defined( &_SVID_SOURCE))) {
  11.     eval 'sub _BSD_SOURCE {1;}';
  12.     eval 'sub _SVID_SOURCE {1;}';
  13.     }
  14.     if ((!defined( &__STRICT_ANSI__) && !defined( &_POSIX_SOURCE) && !defined( &_POSIX_C_SOURCE))) {
  15.     eval 'sub _POSIX_SOURCE {1;}';
  16.     eval 'sub _POSIX_C_SOURCE {2;}';
  17.     }
  18.     if (defined( &_POSIX_SOURCE) || (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0) >= 1) {
  19.     eval 'sub __USE_POSIX {1;}';
  20.     }
  21.     if (defined( &_POSIX_C_SOURCE) && (defined(&_POSIX_C_SOURCE) ? &_POSIX_C_SOURCE : 0) >= 2) {
  22.     eval 'sub __USE_POSIX2 {1;}';
  23.     }
  24.     if (defined( &_BSD_SOURCE) || defined( &_SVID_SOURCE)) {
  25.     eval 'sub __USE_MISC {1;}';
  26.     }
  27.     if (defined &_BSD_SOURCE) {
  28.     eval 'sub __USE_BSD {1;}';
  29.     }
  30.     if (defined &_SVID_SOURCE) {
  31.     eval 'sub __USE_SVID {1;}';
  32.     }
  33.     if (defined &_GNU_SOURCE) {
  34.     eval 'sub __USE_GNU {1;}';
  35.     }
  36.     eval 'sub __GNU_LIBRARY__ {1;}';
  37.     require 'sys/cdefs.ph';
  38. }
  39. 1;
  40.