Navigation Menu

Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

use utf8 breaks ?{} #4037

Closed
p5pRT opened this issue May 28, 2001 · 4 comments
Closed

use utf8 breaks ?{} #4037

p5pRT opened this issue May 28, 2001 · 4 comments
Labels
distro-dec_osf type-core

Comments

@p5pRT
Copy link

p5pRT commented May 28, 2001

Migrated from rt.perl.org#7050 (status was 'resolved')

Searchable as RT7050$
@p5pRT
Copy link
Author

p5pRT commented May 28, 2001

From @jhi

use utf8;
$out = 1;
'abc' =~ m'a(?{ $out = 3 })c';
print "not " if $out != 1;
print "ok ($out)\n";

Under bleadperl this outputs "not ok (3)\n".

By commenting out the use utf8 the expected "ok (1)\n" gets output.

(This is op/pat #64, the problem again found -Mutf8.)

Perl Info 

Flags:
    category=core
    severity=medium

Site configuration information for perl v5.7.1:

Configured by jhi at Mon May 28 19:49:20 EET DST 2001.

Summary of my perl5 (revision 5.0 version 7 subversion 17) configuration:
  Platform:
    osname=dec_osf, osvers=4.0f, archname=alpha-dec_osf
    uname='osf1 kosh.hut.fi v4.0 1229 alpha '
    config_args='-des -Dusedevel -Doptimize=-g'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=define use64bitall=define uselongdouble=undef
  Compiler:
    cc='cc', ccflags ='-std -DDEBUGGING -DLANGUAGE_C',
    optimize='-g',
    cppflags='-std -DDEBUGGING -DLANGUAGE_C'
    ccversion='V5.9-011', gccversion='', gccosandvers=''
    intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
    ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='ld', ldflags =''
    libpth=/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /var/shlib
    libs=-lgdbm -ldbm -ldb -lm -liconv -lutil
    perllibs=-lm -liconv -lutil
    libc=/usr/shlib/libc.so, so=so, useshrplib=true, libperl=libperl.so
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='  -Wl,-rpath,/usr/local/lib/perl5/5.7.1/alpha-dec_osf/CORE'
    cccdlflags=' ', lddlflags='-shared -expect_unresolved "*" -g -msym -std'

Locally applied patches:
    DEVEL10209


@INC for perl v5.7.1:
    lib
    /u/vieraat/vieraat/jhi/Perl/lib
    /usr/local/lib/perl5/5.7.1/alpha-dec_osf
    /usr/local/lib/perl5/5.7.1
    /usr/local/lib/perl5/site_perl/5.7.1/alpha-dec_osf
    /usr/local/lib/perl5/site_perl/5.7.1
    /usr/local/lib/perl5/site_perl
    .


Environment for perl v5.7.1:
    HOME=/u/vieraat/vieraat/jhi
    LANG=C
    LANGUAGE (unset)
    LC_ALL=fi_FI.ISO8859-1
    LC_CTYPE=fi_FI.ISO8859-1
    LD_LIBRARY_PATH=/tmp/jhi/perl
    LOGDIR (unset)
    PATH=/p/test/bin:/u/vieraat/vieraat/jhi/.s:/u/vieraat/vieraat/jhi/.b/OSF1:/c/bin:/p/bin:/p/adm/bin:/usr/bin:/usr/sbin:/sbin:/bin:/usr/ccs/bin:/usr/lib:/etc:/lib:/p/X6/bin:/p/X5/bin:/usr/bin/X11:/usr/lbin:/usr/sbin/acct:/usr/tcb/bin:/tcb/bin:/usr/field:/u/vieraat/vieraat/jhi
    PERLLIB=/u/vieraat/vieraat/jhi/Perl/lib
    PERL_BADLANG (unset)
    SHELL=/bin/zsh

@p5pRT
Copy link
Author

p5pRT commented May 28, 2001

From @jhi

Inaba Hiroto pointed out to me a simple explanation for the
behavioral difference​:

: The reason why the former regexp does not change $out is​:
:
: Without `use utf8', regexp engine uses the anchored substr 'ac' of the
: regexp and "abc" is rejected before processing regnodes, so it does not
: change $out.

(He also agreed that the op/pat test itself doesn't look right.)

@p5pRT
Copy link
Author

p5pRT commented Jan 5, 2003

From @jhi

This seems to have been fixed by Perl 5.8.0 final.

@p5pRT
Copy link
Author

p5pRT commented Jan 5, 2003

@jhi - Status changed from 'open' to 'resolved'

@p5pRT p5pRT closed this as completed Jan 5, 2003
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
distro-dec_osf type-core
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
1 participant
@p5pRT