home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / lib / perl / 5.8.8 / syslimits.ph < prev    next >
Encoding:
Text File  |  2006-07-07  |  447 b   |  17 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_GCC_NEXT_LIMITS_H)) {
  6.     sub _GCC_NEXT_LIMITS_H () {    1;}
  7. }
  8. eval {
  9.     my(@REM);
  10.     my(%INCD) = map { $INC{$_} => 1 } (grep { $_ eq "limits.ph" } keys(%INC));
  11.     @REM = map { "$_/limits.ph" } (grep { not exists($INCD{"$_/limits.ph"}) and -f "$_/limits.ph" } @INC);
  12.     require "$REM[0]" if @REM;
  13. };
  14. warn($@) if $@;
  15. undef(&_GCC_NEXT_LIMITS_H) if defined(&_GCC_NEXT_LIMITS_H);
  16. 1;
  17.