fix build for perl to handle also callback symbols there

diff --git a/swig/Callbacks.i b/swig/Callbacks.i
index 12c28a1..e66bd0f 100644 (file)
--- a/swig/Callbacks.i
+++ b/swig/Callbacks.i
@@ -34,6 +34,8 @@ static Target_Type action_abort()
     if (value == Qnil)
       value = ID2SYM(rb_intern("abort"));
     return value;
+#else
+  return Target_String("abort");
 #endif
   }
 
@@ -44,6 +46,8 @@ static Target_Type action_retry()
     if (value == Qnil)
       value = ID2SYM(rb_intern("retry"));
     return value;
+#else
+  return Target_String("retry");
 #endif
   }
 
@@ -54,6 +58,8 @@ static Target_Type action_ignore()
     if (value == Qnil)
       value = ID2SYM(rb_intern("ignore"));
     return value;
+#else
+  return Target_String("ignore");
 #endif
   }
 
@@ -70,8 +76,7 @@ static Target_Type error_no_error()
     if (value == Qnil)
       value = ID2SYM(rb_intern("no_error"));
     return value;
-#endif
-#if defined(SWIGPYTHON)
+#else
   return Target_String("no_error");
 #endif
   }
@@ -83,8 +88,7 @@ static Target_Type error_not_found()
     if (value == Qnil)
       value = ID2SYM(rb_intern("not_found"));
     return value;
-#endif
-#if defined(SWIGPYTHON)
+#else
   return Target_String("not_found");
 #endif
   }
@@ -96,8 +100,7 @@ static Target_Type error_io()
     if (value == Qnil)
       value = ID2SYM(rb_intern("io"));
     return value;
-#endif
-#if defined(SWIGPYTHON)
+#else
   return Target_String("io");
 #endif
   }
@@ -109,8 +112,7 @@ static Target_Type error_invalid()
     if (value == Qnil)
       value = ID2SYM(rb_intern("invalid"));
     return value;
-#endif
-#if defined(SWIGPYTHON)
+#else
   return Target_String("invalid");
 #endif
   }