#!/usr/local/cpanel/3rdparty/bin/perl

exit if ( !-e "/usr/include/bits/types.h" );
exit if ( -e '/var/cpanel/disable_patchfdsetsize' );

my $hassmallfd = 0;
my @BT;

open( BITSTYPES, "/usr/include/bits/types.h" );
while (<BITSTYPES>) {
    if ( /FD_SETSIZE/ && /\#define/ && /1024/ ) {
        $hassmallfd = 1;
    }
    push( @BT, $_ );
}
close(BITSTYPES);

if ( !$hassmallfd ) { exit; }

open( BITSTYPES, ">/usr/include/bits/types.h" );
foreach (@BT) {
    if ( /FD_SETSIZE/ && /\#define/ && /1024/ ) {
        s/1024/16384/g;
    }
    print BITSTYPES;
}
close(BITSTYPES);