The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

check_status( )

        $retval = check_status($status);

Checks the CFITSIO status variable. If it indicates an error, the corresponding CFITSIO error message is carp()ed, and a false value is returned. If the passed status does not indicate an error, then a true value is returned and nothing else is done