More Apollo fixes.

p4raw-id: //depot/maint-5.005/perl@3119

README.apollo

@@ -1,25 +1,11 @@
 The following tests are known to fail as of Perl 5.005_03:
 
 comp/decl..........FAILED at test 0
-op/magic...........FAILED at test 23
 op/write...........FAILED at test 0
 lib/filefind.......FAILED at test 2
 lib/io_udp.........FAILED at test 2
 lib/findbin........stat(/ressel/ABT/USER/vta/jk/proj.local/perl/perl5.005_03-MAINT_TRIAL_5/t/lib/): No such file or directory at ../lib/FindBin.pm line 162
 stat(/ressel/ABT/USER/vta/jk/proj.local/perl/perl5.005_03-MAINT_TRIAL_5/t/lib/): No such file or directory at ../lib/FindBin.pm line 163
 FAILED at test 1
 
-Failed 6 test scripts out of 188, 93.62% okay.
-   ### Since not all tests were successful, you may want to run some
-   ### of them individually and examine any diagnostic messages they
-   ### produce.  See the INSTALL document's section on "make test".
-   ### If you are testing the compiler, then ignore this message 
-   ### and run 
-   ###      ./perl harness
-   ### in the directory ./t.
-   ###
-   ### Since most tests were successful, you have a good chance to
-   ### get information with better granularity by running
-   ###     ./perl harness 
-   ### in directory ./t.
-u=9.2  s=20.1167  cu=431.5  cs=166.133  scripts=180  tests=6348
+Johann Klasek <jk@auto.tuwien.ac.at>

hints/apollo.sh

@@ -10,6 +10,9 @@
 # /sys5 includes.
 ccflags="$ccflags -A cpu,mathchip -I`pwd`/apollo -I/usr/include -I/sys5/usr/include"
 
+# When Apollo runs a script with "#!", it sets argv[0] to the script name.
+toke_cflags='ccflags="$ccflags -DARG_ZERO_IS_SCRIPT"'
+
 # These adjustments are necessary (why?) to compile malloc.c.
 freetype='void'
 i_malloc='undef'

t/lib/io_udp.t

@@ -13,7 +13,7 @@ BEGIN {
     if(-d "lib" && -f "TEST") {
         if ( ($Config{'extensions'} !~ /\bSocket\b/ ||
               $Config{'extensions'} !~ /\bIO\b/	||
-	      $^O eq 'os2')    &&
+	      ($^O eq 'os2') || $^O eq 'apollo')    &&
               !(($^O eq 'VMS') && $Config{d_socket})) {
 	    print "1..0\n";
 	    exit 0;