File: //proc/self/root/scripts.20110531.215904.25158/patchtypesizes
#!/usr/bin/perl
exit if (! -e "/usr/include/bits/typesizes.h");
exit if (-e '/var/cpanel/disable_patchfdsetsize');
$hassmallfd = 0;
open(BITSTYPES,"/usr/include/bits/typesizes.h");
while(<BITSTYPES>) {
if (/FD_SETSIZE/ && /\#define/ && /1024/) {
$hassmallfd = 1;
}
push(@BT,$_);
}
close(BITSTYPES);
if (!$hassmallfd) { exit; }
open(BITSTYPES,">/usr/include/bits/typesizes.h");
foreach(@BT) {
if (/FD_SETSIZE/ && /\#define/ && /1024/) {
s/1024/16384/g;
}
print BITSTYPES;
}
close(BITSTYPES);