[ID 20000118.005] map's {} block can't parse list starting with literal

["Sean M. Burke" <sburke@stonehenge.netadventure.net>]

Contents of a map's {} block are being misparsed when (at least) first
item is a literal.

2 and 3, below, should be interchangeable, but only 3 is parseable:


[1 is just from perldoc -f map]
1: perl -ce '%hash = map { foo($_), $_ } @array;'
-e syntax OK

2: perl -ce '%hash = map { "foo", $_ } @array;'
syntax error at -e line 1, near "} @array"
-e had compilation errors.

3: perl -ce '%hash = map { ("foo", $_) } @array;'
-e syntax OK



4: perl -V
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=aix, osvers=4.3.1.0, archname=aix
    uname='aix pegasus 3 4 000165185700 '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-O', gccversion=
    cppflags='-D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=8192 -I/usr/local/include'
    ccflags ='-D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=8192 -I/usr/local/include'
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='ld', ldflags ='-L/usr/local/lib -L/usr/local/gnu/lib -L/usr/ccs/lib -L/lib'
    libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib /usr/local/gnu/lib
    libs=-lnsl -lgdbm -ldbm -ldl -lld -lm -lc -lcrypt -lbsd -lPW
    libc=, so=a, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_aix.xs, dlext=so, d_dlsymun=undef, ccdlflags='-bE:perl.exp'
    cccdlflags=' ', lddlflags='-bhalt:4 -bM:SRE -bI:$(PERL_INC)/perl.exp -bE:$(BASEEXT).exp -b '


Characteristics of this binary (from libperl): 
  Built under aix
  Compiled at Aug 12 1999 09:10:29
  %ENV:
    PERLLIB="/nfs/user/l/lachler/.bin/perl"
  @INC:
    /nfs/user/l/lachler/.bin/perl
    /usr/local/gnu/lib/perl5/5.00503/aix
    /usr/local/gnu/lib/perl5/5.00503
    /usr/local/gnu/lib/perl5/site_perl/5.005/aix
    /usr/local/gnu/lib/perl5/site_perl/5.005
    .



-- 
Sean M. Burke  sburke@netadventure.net  http://www.netadventure.net/~sburke/

---

Follow-Ups from:

Ronald J Kimball <rjk@linguist.dartmouth.edu>

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---