develooper Front page | perl.perl5.porters | Postings from November 1999

[ID 19991115.012] Localization and goto()

Thread Previous | Thread Next
From:
ilya
Date:
November 15, 1999 22:24
Subject:
[ID 19991115.012] Localization and goto()
Message ID:
199911160623.BAA175.75@karetnikova

This is a bug report for perl from ilya@karetnikova.uucp,
generated with the help of perlbug 1.27 running under perl 5.00562.


-----------------------------------------------------------------
[Please enter your report here]

$a = 5;
sub a { print $a }
sub b {local $b = 9; goto &a}
b;

This prints 5.  "Should" not it print 9 instead?

Ilya

[Please do not change anything below this line]
-----------------------------------------------------------------

---
Site configuration information for perl 5.00562:

Configured by ilya at Fri Oct 15 19:37:24 EDT 1999.

Summary of my perl5 (revision 5.0 version 5 subversion 62) configuration:
  Platform:
    osname=os2, osvers=2.30, archname=os2
    uname='os2 karetnikova 2 2.30 i386 '
    config_args='-des -Dprefix=f:/perllib'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
    use64bits=undef usemultiplicity=undef
  Compiler:
    cc='gcc', optimize='-O2 -fomit-frame-pointer -malign-loops=2 -malign-jumps=2 -malign-functions=2 -s', gccversion=2.8.1
    cppflags='-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I. -I/usr/local/include -D_EMX_CRT_REV_=60'
    ccflags ='-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I. -I/usr/local/include -D_EMX_CRT_REV_=60'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    alignbytes=4, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='gcc', ldflags ='-Zexe -Zomf -Zmt -Zcrtdll -Zstack 32000'
    libpth=f:/emx.add/lib f:/emx/lib D:/DEVTOOLS/OPENGL/LIB f:/emx/lib/mt
    libs=-lsocket -lm -lbsd
    libc=f:/emx/lib/mt/c_import.lib, so=dll, useshrplib=true, libperl=libperl.lib
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-Zdll', lddlflags='-Zdll -Zomf -Zmt -Zcrtdll -s'

Locally applied patches:
    

---
@INC for perl 5.00562:
    lib
    f:/perllib/lib/5.00562/os2
    f:/perllib/lib/5.00562
    f:/perllib/lib/site_perl/5.00562/os2
    f:/perllib/lib/site_perl
    .

---
Environment for perl 5.00562:
    HOME=f:/home
    LANG=EN_US
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=d:\NETSCAPE;d:\OPENDOC\EPM;d:\OPENDOC\OREXX;d:\OPENDOC\BIN;F:\DRV;f:\TOOLKIT\BETA\BIN\PMEISTER;f:\TOOLKIT\BETA\BIN;f:\TOOLKIT\BIN\OSARED;f:\TOOLKIT\SOM\COMMON;f:\TOOLKIT\SOM\BIN;f:\TOOLKIT\BIN;D:\OS2;D:\OS2\SYSTEM;F:\VABASIC\SOM\BIN;D:\OS2\INSTALL;D:\;D:\OS2\MDOS;D:\OS2\APPS;F:\BIN;F:\UTILS;F:\EMACS\19.33\BIN;F:\EMX.ADD\BIN;F:\EMX\BIN;F:\PBM;F:\EMTEX\bin;f:\ckermit;F:\PAGETURN;d:\tcpip\bin;D:\TCPIP\UMAIL;D:\VIEWER\BIN;F:\XFree86\bin;F:\VABASIC\BIN;F:\SMART;G:\EMX\BIN;d:\JAVAOS2\bin;D:\MMOS2;
    PERL_BADLANG (unset)
    SHELL (unset)
Thread Previous | Thread Next

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