This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: use raise() instead of kill() on ourselves
[perl5.git] / amigaos4 / amigaio.h
index 03a64d8..1f1a53a 100644 (file)
@@ -1,18 +1,20 @@
 #ifndef _AMIGAIO_H
 #define _AMIGAIO_H
 
+#ifndef H_PERL
 #include "../perl.h"
+#endif
 
 struct StdioStore
 {
-        /* astdin...astderr are the amigaos file descriptors */
-        long astdin;
-        long astdout;
-        long astderr;
-        /* oldstdin...oldstderr are the amigados file handles */
-        long oldstdin;
-        long oldstdout;
-        long oldstderr;
+       /* astdin...astderr are the amigaos file descriptors */
+       long astdin;
+       long astdout;
+       long astderr;
+       /* oldstdin...oldstderr are the amigados file handles */
+       long oldstdin;
+       long oldstdout;
+       long oldstderr;
 };
 
 typedef struct StdioStore StdioStore;
@@ -30,12 +32,12 @@ void amigaos_stdio_restore(pTHX_ const StdioStore *store);
  * then pass it through task->tc_UserData or as arg to new pthread */
 struct UserData
 {
-        struct Task *parent;
-        I32 did_pipes;
-        int pp;
-        SV **sp;
-        SV **mark;
-        PerlInterpreter *my_perl;
+       struct Task *parent;
+       I32 did_pipes;
+       int pp;
+       SV **sp;
+       SV **mark;
+       PerlInterpreter *my_perl;
 };
 
 void amigaos_fork_set_userdata(