develooper Front page | perl.perl5.porters | Postings from July 2018

[perl #133321] locale.c: Fix conditional compilation

From:
Francois PERRAD
Date:
July 2, 2018 04:46
Subject:
[perl #133321] locale.c: Fix conditional compilation
Message ID:
rt-4.0.24-7393-1530506811-1583.133321-75-0@perl.org
# New Ticket Created by  Francois PERRAD 
# Please include the string:  [perl #133321]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=133321 >


This is a bug report for perl from francois.perrad@gadz.org,
generated with the help of perlbug 1.41 running under perl 5.28.0.


-----------------------------------------------------------------
[Please describe your issue here]

With Perl 5.28.0, there are some mismatches between blocks
and conditional compilation in the Perl__is_cur_LC_category_utf8() function.
The compilation of miniperl could fails like this:
```
locale.c: In function `Perl__is_cur_LC_category_utf8`:
locale.c:5481:1: error: expected declaration or statement at end of input
 }
 ^
```

The attached patch fixes the issue.

[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
    category=core
    severity=high
---
Site configuration information for perl 5.28.0:

Summary of my perl5 (revision 5 version 28 subversion 0) configuration:

  Platform:
    osname=linux
    osvers=4.16.7
    archname=arm-linux
    uname='Buildroot 2018.05-gdab1a6ee4'
    config_args='--target=arm-buildroot-linux-uclibcgnueabihf
--target-tools-prefix=/home/user/build/qarm/host/bin/arm-buildroot-linux-uclibcgnueabihf-
--prefix=/usr
-Dld=/home/user/build/qarm/host/bin/arm-buildroot-linux-uclibcgnueabihf-gcc
-Dccflags=-D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64
-Os  -Dldflags= -lm -Dmydomain= -Dmyhostname=noname -Dmyuname=Buildroot
2018.05-gdab1a6ee4 -Dosname=linux -Dosvers=4.16.7 -Dperladmin=root
--keeplog --mode=target --target=arm-buildroot-linux-uclibcgnueabihf
--targetarch=arm-buildroot-linux-uclibcgnueabihf'
    hint=default
    useposix=true
    d_sigaction=define
    useithreads=undef
    usemultiplicity=undef
    use64bitint=undef
    use64bitall=undef
    uselongdouble=undef
    usemymalloc=n
    default_inc_excludes_dot=undef
    bincompat5005=undef
  Compiler:

cc='/home/user/build/qarm/host/bin/arm-buildroot-linux-uclibcgnueabihf-gcc'
    ccflags ='-D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE
-D_FILE_OFFSET_BITS=64    -Os '
    optimize='-fwrapv -fno-strict-aliasing'
    cppflags=''
    ccversion='6.4.0'
    gccversion='6.4.0'
    gccosandvers=''
    intsize=4
    longsize=4
    ptrsize=4
    doublesize=8
    byteorder=1234
    doublekind=3
    d_longlong=define
    longlongsize=8
    d_longdbl=define
    longdblsize=8
    longdblkind=0
    ivtype='long'
    ivsize=4
    nvtype='double'
    nvsize=8
    Off_t='off_t'
    lseeksize=8
    alignbytes=8
    prototype=define
  Linker and Libraries:

ld='/home/user/build/qarm/host/bin/arm-buildroot-linux-uclibcgnueabihf-gcc'
    ldflags =' -lm'
    libpth=/lib /usr/lib /usr/local/lib
    libs=-lm -lcrypt -lpthread -ldl
    perllibs=-lm -lcrypt -ldl
    libc=
    so=so
    useshrplib=false
    libperl=libperl.a
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs
    dlext=so
    d_dlsymun=undef
    ccdlflags='-Wl,-E'
    cccdlflags='-fPIC -Wno-unused-function'
    lddlflags='-shared'


---
@INC for perl 5.28.0:
    /usr/lib/perl5/site_perl/5.28.0/arm-linux
    /usr/lib/perl5/site_perl/5.28.0
    /usr/lib/perl5/5.28.0/arm-linux
    /usr/lib/perl5/5.28.0

---
Environment for perl 5.28.0:
    HOME=/root
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/bin:/sbin:/usr/bin:/usr/sbin
    PERL_BADLANG (unset)
    SHELL=/bin/sh



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About