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

Deparse -x3 loses "for" initialiser #16223

Open
p5pRT opened this issue Nov 4, 2017 · 3 comments
Open

Deparse -x3 loses "for" initialiser #16223

p5pRT opened this issue Nov 4, 2017 · 3 comments
Labels
type-library

Comments

@p5pRT
Copy link

p5pRT commented Nov 4, 2017

Migrated from rt.perl.org#132397 (status was 'open')

Searchable as RT132397$
@p5pRT
Copy link
Author

p5pRT commented Nov 4, 2017

From zefram@fysh.org

Created by zefram@fysh.org

If B​::Deparse is given the "-x3" option to expand source constructs,
its expansion of "for" loops loses the initialisation part entirely​:

$ perl -MO=Deparse -e 'for($i = 5; $i != 10; $i++) { print $i, "\n"; }'
for ($i = 5; $i != 10; ++$i) {
  print $i, "\n";
}
-e syntax OK
$ perl -MO=Deparse,-x3 -e 'for($i = 5; $i != 10; $i++) { print $i, "\n"; }'
while ($i != 10) {
  print $i, "\n";
}
continue {
  ++$i
}
-e syntax OK

The documentation for B​::Deparse has a warning about variables declared in
the initialiser getting the wrong scope, but that's not what's happening
here. The declaration doesn't get the wrong scope​: it's omitted entirely,
and (as shown above) the omission happens even without a declaration.

Perl Info 

Flags:
    category=library
    severity=low
    module=B::Deparse

Site configuration information for perl 5.27.5:

Configured by zefram at Fri Oct 20 23:24:00 BST 2017.

Summary of my perl5 (revision 5 version 27 subversion 5) configuration:
   
  Platform:
    osname=linux
    osvers=3.16.0-4-amd64
    archname=x86_64-linux-thread-multi
    uname='linux barba.rous.org 3.16.0-4-amd64 #1 smp debian 3.16.43-2+deb8u2 (2017-06-26) x86_64 gnulinux '
    config_args='-des -Dprefix=/home/zefram/usr/perl/perl_install/perl-5.27.5-i64-f52 -Duselargefiles -Dusethreads -Uafs -Ud_csh -Uusesfio -Uusenm -Duseshrplib -Dusedevel -Uversiononly -Ui_db'
    hint=recommended
    useposix=true
    d_sigaction=define
    useithreads=define
    usemultiplicity=define
    use64bitint=define
    use64bitall=define
    uselongdouble=undef
    usemymalloc=n
    default_inc_excludes_dot=define
    bincompat5005=undef
  Compiler:
    cc='cc'
    ccflags ='-D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_FORTIFY_SOURCE=2'
    optimize='-O2'
    cppflags='-D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'
    ccversion=''
    gccversion='4.9.2'
    gccosandvers=''
    intsize=4
    longsize=8
    ptrsize=8
    doublesize=8
    byteorder=12345678
    doublekind=3
    d_longlong=define
    longlongsize=8
    d_longdbl=define
    longdblsize=16
    longdblkind=3
    ivtype='long'
    ivsize=8
    nvtype='double'
    nvsize=8
    Off_t='off_t'
    lseeksize=8
    alignbytes=8
    prototype=define
  Linker and Libraries:
    ld='cc'
    ldflags =' -fstack-protector-strong -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib/gcc/x86_64-linux-gnu/4.9/include-fixed /usr/include/x86_64-linux-gnu /usr/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib
    libs=-lpthread -lnsl -ldb -ldl -lm -lcrypt -lutil -lc
    perllibs=-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc
    libc=libc-2.19.so
    so=so
    useshrplib=true
    libperl=libperl.so
    gnulibc_version='2.19'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs
    dlext=so
    d_dlsymun=undef
    ccdlflags='-Wl,-E -Wl,-rpath,/home/zefram/usr/perl/perl_install/perl-5.27.5-i64-f52/lib/5.27.5/x86_64-linux-thread-multi/CORE'
    cccdlflags='-fPIC'
    lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector-strong'



@INC for perl 5.27.5:
    /home/zefram/usr/perl/perl_install/perl-5.27.5-i64-f52/lib/site_perl/5.27.5/x86_64-linux-thread-multi
    /home/zefram/usr/perl/perl_install/perl-5.27.5-i64-f52/lib/site_perl/5.27.5
    /home/zefram/usr/perl/perl_install/perl-5.27.5-i64-f52/lib/5.27.5/x86_64-linux-thread-multi
    /home/zefram/usr/perl/perl_install/perl-5.27.5-i64-f52/lib/5.27.5


Environment for perl 5.27.5:
    HOME=/home/zefram
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/home/zefram/usr/perl/perl_install/perl-5.27.5-i64-f52/bin:/home/zefram/usr/perl/util:/home/zefram/pub/x86_64-unknown-linux-gnu/bin:/home/zefram/pub/common/bin:/usr/bin:/bin:/usr/local/bin:/usr/games
    PERLDOC=-oman
    PERL_BADLANG (unset)
    SHELL=/usr/bin/zsh

@p5pRT
Copy link
Author

p5pRT commented Feb 5, 2019

From wagnerc@plebeian.com

This is still an issue in 5.29.8.

for($i = 5; $i != 10; $i++) { print $i, "\n"; }

deparse​:
while ( ( $i != 10 ) ) { print( $i, "\n" ); } continue { ( ++$i ) }

for(my $i = 5; $i != 10; $i++) { print $i, "\n"; }

deparse​:
while ( ( $i != 10 ) ) { print( $i, "\n" ); } continue { ( ++$i ) }

This problem goes back to atleast 5.8.8.

$ /c/perl588/bin/perl5.8.8.exe -e 'print $]'
5.008008

$ /c/perl588/bin/perl5.8.8.exe -MO=Deparse,-p,-q,-x9,-P -e 'for(my$i = 5; $i != 10; $i++) { print $i, "\n"; }'
-e syntax OK
while (($i != 10)) {
  print($i, "\n");
}
continue {
  (++$i)
}

Thanks.

@p5pRT
Copy link
Author

p5pRT commented Feb 5, 2019

The RT System itself - Status changed from 'new' to 'open'

@xenu xenu removed the affects-5.27 label Nov 19, 2021
@xenu xenu removed the Severity Low label Dec 29, 2021
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
type-library
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
2 participants
@xenu @p5pRT