view release on metacpan or  search on metacpan

Scale.xs  view on Meta::CPAN

#include "common.c"
#include "image.c"

MODULE = Image::Scale		PACKAGE = Image::Scale

PROTOTYPES: ENABLE

void
__init(HV *self)
PPCODE:
{
  SV *pv = NEWSV(0, sizeof(image));
  image *im = (image *)SvPVX(pv);

  SvPOK_only(pv);

  if ( !image_init(self, im) ) {
    // Return undef on any errors during header reading
    SvREFCNT_dec(pv);
    XSRETURN_UNDEF;