On Wed, Jan 31, 2001 at 11:15:34PM +0100, Olaf Flebbe wrote:
>  Hi,
>  
>  some patches relative to perl-5-6-1-trial2 for EPOC.
>  
>  The sv.c seems to be a general fix needed. It may even be wrong, but
>  perl doesn't compile for me without it (does not have locales).

The change looks good, not protecting all the uses of PL_numeric_radix
was my fault, sorry about that.

>  Cheers
>    Olaf
>  
>  Index: sv.c
>  ===================================================================
>  RCS file: /home/of/devel/CVS/perl/sv.c,v
>  retrieving revision 1.1.1.5
>  diff -u -r1.1.1.5 sv.c
>  --- sv.c	2001/01/31 20:53:26	1.1.1.5
>  +++ sv.c	2001/01/31 21:34:58
>  @@ -1952,9 +1952,11 @@
>   	    || (specialradix = IS_NUMERIC_RADIX(s))
>   #endif
>   	    ) {
>  +#ifdef USE_LOCALE_NUMERIC
>   	    if (specialradix)
>   		s += SvCUR(PL_numeric_radix_sv);
>   	    else
>  +#endif
>   		s++;
>   	    numtype |= IS_NUMBER_NOT_IV;
>               while (isDIGIT(*s))  /* optional digits after the radix */
>  @@ -1966,9 +1968,11 @@
>   	    || (specialradix = IS_NUMERIC_RADIX(s))
>   #endif
>   	    ) {
>  +#ifdef USE_LOCALE_NUMERIC
>   	if (specialradix)
>   	    s += SvCUR(PL_numeric_radix_sv);
>   	else
>  +#endif
>   	    s++;
>   	numtype |= IS_NUMBER_TO_INT_BY_ATOL | IS_NUMBER_NOT_IV;
>           /* no digits before the radix means we need digits after it */
>  Index: epoc/epocish.c
>  ===================================================================
>  RCS file: /home/of/devel/CVS/perl/epoc/epocish.c,v
>  retrieving revision 1.1.1.4
>  diff -u -r1.1.1.4 epocish.c
>  --- epoc/epocish.c	2001/01/31 20:53:27	1.1.1.4
>  +++ epoc/epocish.c	2001/01/31 21:54:43
>  @@ -90,5 +90,5 @@
>   #if 0
>   void epoc_spawn_posix_server() {
>     SpawnPosixServerThread(); 
>  -#endif
>   }
>  +#endif
>  Index: ext/Errno/Errno_pm.PL
>  ===================================================================
>  RCS file: /home/of/devel/CVS/perl/ext/Errno/Errno_pm.PL,v
>  retrieving revision 1.1.1.2
>  diff -u -r1.1.1.2 Errno_pm.PL
>  --- ext/Errno/Errno_pm.PL	2000/11/15 21:14:09	1.1.1.2
>  +++ ext/Errno/Errno_pm.PL	2001/01/31 22:08:21
>  @@ -85,6 +85,9 @@
>       } elsif ($^O eq 'vmesa') {
>   	# OS/390 C compiler doesn't generate #file or #line directives
>   	$file{'../../vmesa/errno.h'} = 1;
>  +    } elsif ($Config{archname} eq 'epoc') {
>  +	# Watch out for cross compiling for EPOC (usually done on linux)
>  +	$file{'/usr/local/epoc/include/libc/sys/errno.h'} = 1;
>       } elsif ($^O eq 'linux') {
>   	# Some Linuxes have weird errno.hs which generate
>   	# no #file or #line directives
>  
>  
>    Dr. Olaf Flebbe                            Phone +49 (0)7071-9457-254
>    science + computing gmbh                     FAX +49 (0)7071-9457-511
>    Hagellocher Weg 73
>    D-72070 Tuebingen  Email: o.flebbe@[...].de
>  
>             Microsoft has inertia. Linux has Momentum.

-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen