added more robust 'type checks' that work in Perls 5.12 adn 5.14

Author: oodler577

share/openmp-simple.h

@@ -454,10 +454,20 @@ void PerlOMP_VERIFY_2D_AoA(SV *AoA) {
     }
 }
 
-/* Helper function to verify element types */
-bool is_float(SV *sv) { return SvNOK(sv); }
-bool is_int(SV *sv) { return SvIOKp(sv); }
-bool is_string(SV *sv) { return SvPOK(sv); }
+/* Checks if an SV is an integer, allowing for stored floats that are whole numbers */
+bool is_int(SV *sv) {
+    return SvIOK(sv) || (SvNOK(sv) && SvIV(sv) == SvNV(sv));
+}
+
+/* Checks if an SV is a float, including cases where Perl stores it as an integer */
+bool is_float(SV *sv) {
+    return SvNOK(sv) || (SvIOK(sv) && SvIV(sv) != SvNV(sv));
+}
+
+/* Checks if an SV is a string, ensuring it's not just a numeric representation */
+bool is_string(SV *sv) {
+    return SvPOK(sv) || (!SvNOK(sv) && !SvIOK(sv));
+}
 
 void verify_1D_array_type(SV *array, bool (*type_check)(SV *), const char *type_name) {
     if (!is_array_ref(array)) {

t/00-PerlOMP_VERIFY.t

@@ -28,9 +28,6 @@ lives_ok { _PerlOMP_VERIFY_1D_Array($valid_1d_int) } "Valid 1D array passes veri
 lives_ok { _PerlOMP_VERIFY_1D_INT_ARRAY($valid_1d_int) } "Valid 1D integer array";
 dies_ok { _PerlOMP_VERIFY_1D_INT_ARRAY($valid_1d_float) } "Float 1D array should fail int verification";
 
-done_testing;
-exit;
-
 lives_ok { _PerlOMP_VERIFY_1D_FLOAT_ARRAY($valid_1d_float) } "Valid 1D float array";
 dies_ok { _PerlOMP_VERIFY_1D_FLOAT_ARRAY($valid_1d_int) } "Int 1D array should fail float verification";