view release on metacpan or  search on metacpan

Size.xs  view on Meta::CPAN

        Safefree(self);

void
file_dimensions(self, filename)
    Image::JPEG::Size self
    char *filename
    INIT:
        FILE *f;
        JDIMENSION width = 0, height = 0;
        int longjmp_reason;
    PPCODE:
        f = fopen(filename, "rb");
        if (!f) {
            croak("Can't open %s: %s", filename, strerror(errno));
        }

        CLEAR_ERRORS(&self->error_mgr);

        if ((longjmp_reason = setjmp(self->error_mgr.jmp_buffer))) {
            fclose(f);
            if (longjmp_reason == WARN || self->error_mgr.on_error == FATAL) {