/usr/lib/perl5/Tk/pTk/imgInt.m is in perl-tk 1:804.030-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | #ifndef _IMGINT_VM
#define _IMGINT_VM
#include "imgInt_f.h"
#ifndef NO_VTABLES
#ifndef ImgFixChanMatchProc
# define ImgFixChanMatchProc (*ImgintVptr->V_ImgFixChanMatchProc)
#endif
#ifndef ImgFixObjMatchProc
# define ImgFixObjMatchProc (*ImgintVptr->V_ImgFixObjMatchProc)
#endif
#ifndef ImgFixStringWriteProc
# define ImgFixStringWriteProc (*ImgintVptr->V_ImgFixStringWriteProc)
#endif
#ifndef ImgGetByteArrayFromObj
# define ImgGetByteArrayFromObj (*ImgintVptr->V_ImgGetByteArrayFromObj)
#endif
#ifndef ImgGetc
# define ImgGetc (*ImgintVptr->V_ImgGetc)
#endif
#ifndef ImgListObjGetElements
# define ImgListObjGetElements (*ImgintVptr->V_ImgListObjGetElements)
#endif
#ifndef ImgObjInit
# define ImgObjInit (*ImgintVptr->V_ImgObjInit)
#endif
#ifndef ImgOpenFileChannel
# define ImgOpenFileChannel (*ImgintVptr->V_ImgOpenFileChannel)
#endif
#ifndef ImgPhotoPutBlock
# define ImgPhotoPutBlock (*ImgintVptr->V_ImgPhotoPutBlock)
#endif
#ifndef ImgPutc
# define ImgPutc (*ImgintVptr->V_ImgPutc)
#endif
#ifndef ImgRead
# define ImgRead (*ImgintVptr->V_ImgRead)
#endif
#ifndef ImgReadInit
# define ImgReadInit (*ImgintVptr->V_ImgReadInit)
#endif
#ifndef ImgWrite
# define ImgWrite (*ImgintVptr->V_ImgWrite)
#endif
#ifndef ImgWriteInit
# define ImgWriteInit (*ImgintVptr->V_ImgWriteInit)
#endif
#endif /* NO_VTABLES */
#endif /* _IMGINT_VM */
|