One Hat Cyber Team

Your IP : 172.16.0.254

Server IP : 58.26.163.33

Server : Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64

Server Software : Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25

PHP Version : 7.3.25

Buat File | Buat Folder

Dir : C:/xampp7/perl/vendor/lib/Imager/include/

Edit File: imextpl.h

#ifndef IMAGER_IMEXTPL_H_
#define IMAGER_IMEXTPL_H_

#include "imextpltypes.h"
#include "immacros.h"

extern im_pl_ext_funcs *imager_perl_function_ext_table;

#define DEFINE_IMAGER_PERL_CALLBACKS im_pl_ext_funcs *imager_perl_function_ext_table

#ifndef IMAGER_MIN_PL_API_LEVEL
#define IMAGER_MIN_PL_API_LEVEL IMAGER_PL_API_LEVEL
#endif

#define PERL_INITIALIZE_IMAGER_PERL_CALLBACKS \
  do {  \
    imager_perl_function_ext_table = INT2PTR(im_pl_ext_funcs *, SvIV(get_sv(PERL_PL_FUNCTION_TABLE_NAME, 1))); \
    if (!imager_perl_function_ext_table) \
      croak("Imager Perl API function table not found!"); \
    if (imager_perl_function_ext_table->version != IMAGER_PL_API_VERSION) \
      croak("Imager Perl API version incorrect"); \
    if (imager_perl_function_ext_table->level < IMAGER_MIN_PL_API_LEVEL) \
      croak("perl API level %d below minimum of %d", imager_perl_function_ext_table->level, IMAGER_MIN_PL_API_LEVEL); \
  } while (0)

/* just for use here */
#define im_exttpl imager_perl_function_ext_table

#define ip_handle_quant_opts  (im_exttpl->f_ip_handle_quant_opts)
#define ip_cleanup_quant_opts  (im_exttpl->f_ip_cleanup_quant_opts)
#define ip_copy_colors_back (im_exttpl->f_ip_copy_colors_back)

#endif