Current Path : /proc/3/task/3/cwd/usr/local/ssl/lib64/perl5/

Upload File :

Current File : //proc/3/task/3/cwd/usr/local/ssl/lib64/perl5/syslimits.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_GCC_NEXT_LIMITS_H)) {
    sub _GCC_NEXT_LIMITS_H () {	1;}
}
eval {
    my(@REM);
    my(%INCD) = map { $INC{$_} => 1 } (grep { $_ eq "limits.ph" } keys(%INC));
    @REM = map { "$_/limits.ph" } (grep { not exists($INCD{"$_/limits.ph"}) and -f "$_/limits.ph" } @INC);
    require "$REM[0]" if @REM;
};
warn($@) if $@;
undef(&_GCC_NEXT_LIMITS_H) if defined(&_GCC_NEXT_LIMITS_H);
1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez