'&' prototype permits any non-single refgen

[p5pRT]

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

Searchable as RT4539$

[p5pRT]

From dan@brumleve.com

This is a bug report for perl from dan@​www.brumleve.com,
generated with the help of perlbug 1.28 running under perl v5.6.0.

---

# This happens in 5.7.0 as well...

twumtwum$ perl -de0
# ...
  DB<1> sub foo(&) { @​_ }

  DB<2> x foo(\(1,2))
0 SCALAR(0x82448b4)
  -> 1
1 SCALAR(0x82448c0)
  -> 2

---

---

Flags​:
  category=core
  severity=low

---

Site configuration information for perl v5.6.0​:

Configured by dan at Sun Apr 9 19​:33​:10 CDT 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration​:
  Platform​:
  osname=linux, osvers=2.2.13, archname=i686-linux-thread-multi
  uname='linux www 2.2.13 #1 smp thu nov 11 05​:30​:30 cst 1999 i686 unknown '
  config_args='-Dusethreads'
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
  useperlio=undef d_sfio=undef uselargefiles=define
  use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler​:
  cc='cc', optimize='-O2', gccversion=2.7.2.3
  cppflags='-D_REENTRANT -I/usr/local/include'
  ccflags ='-D_REENTRANT -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
  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
  ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4
  alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib
  libs=-lndbm -lgdbm -ldbm -ldb -ldl -lm -lpthread -lc
  libc=/lib/libc-2.0.7.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
  cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches​:
 

---

@​INC for perl v5.6.0​:
  /usr/lib/perl5/5.6.0/i686-linux-thread-multi
  /usr/lib/perl5/5.6.0
  /usr/lib/perl5/site_perl/5.6.0/i686-linux-thread-multi
  /usr/lib/perl5/site_perl/5.6.0
  /usr/lib/perl5/site_perl
  .

---

Environment for perl v5.6.0​:
  HOME=/home/dan
  LANG (unset)
  LANGUAGE (unset)
  LD_LIBRARY_PATH (unset)
  LOGDIR (unset)
  PATH=/bin​:/sbin​:/usr/games​:/usr/bin​:/usr/sbin​:/usr/scripts​:/usr/local/bin​:/home/users/sub/nothing/bin​:.
  PERL_BADLANG (unset)
  SHELL=/bin/tcsh

[p5pRT]

From @cpansprout

On Sat Oct 28 22​:42​:19 2000, dan@​brumleve.com wrote​:

This is a bug report for perl from dan@​www.brumleve.com,
generated with the help of perlbug 1.28 running under perl v5.6.0.

-----------------------------------------------------------------

# This happens in 5.7.0 as well...

twumtwum$ perl -de0
# ...
DB<1> sub foo(&) { @​_ }

DB<2> x foo(\(1,2))
0 SCALAR(0x82448b4)
-> 1
1 SCALAR(0x82448c0)
-> 2

I fixed this in e41e986.

--

Father Chrysostomos

[p5pRT]

@cpansprout - Status changed from 'open' to 'pending release'

[p5pRT]

From @khwilliamson

Thanks for submitting this ticket

The issue should be resolved with the release today of Perl v5.22. If you find that the problem persists, feel free to reopen this ticket

--
Karl Williamson for the Perl 5 porters team

[p5pRT]

@khwilliamson - Status changed from 'pending release' to 'resolved'