develooper Front page | perl.perl5.porters | Postings from December 2017

[perl #132588] In-place sort does not kill weak refs

Thread Next
From:
Father Chrysostomos
Date:
December 15, 2017 20:29
Subject:
[perl #132588] In-place sort does not kill weak refs
Message ID:
rt-4.0.24-23864-1513369793-1563.132588-75-0@perl.org
# New Ticket Created by  Father Chrysostomos 
# Please include the string:  [perl #132588]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=132588 >


Oops. I sent this to perlbug-follow the first time.

$ perl5.27.7 -le 'use Scalar::Util "weaken"; weaken ($a = \$_[0]); @_ = sort @_; print $a; print \$_[0]'
SCALAR(0x7f8ad0805480)
SCALAR(0x7f8ad0805480)

The first line of output should be blank ($a should be undefined.)

$ perl5.27.7 -V
Summary of my perl5 (revision 5 version 27 subversion 7) configuration:
Snapshot of: 2cb35ee012cfe486aa75a422e7bb3cb18ff51336
Platform:
  osname=darwin
  osvers=12.5.0
  archname=darwin-2level
  uname='darwin pint.local 12.5.0 darwin kernel version 12.5.0: sun sep 29 13:33:47 pdt 2013; root:xnu-2050.48.12~1release_x86_64 x86_64 '
  config_args='-de -Dusedevel'
  hint=recommended
  useposix=true
  d_sigaction=define
  useithreads=undef
  usemultiplicity=undef
  use64bitint=define
  use64bitall=define
  uselongdouble=undef
  usemymalloc=n
  default_inc_excludes_dot=define
  bincompat5005=undef
Compiler:
  cc='cc'
  ccflags ='-fno-common -DPERL_DARWIN -mmacosx-version-min=10.8 -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -I/opt/local/include -DPERL_USE_SAFE_PUTENV'
  optimize='-O3'
  cppflags='-fno-common -DPERL_DARWIN -mmacosx-version-min=10.8 -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -I/opt/local/include'
  ccversion=''
  gccversion='4.2.1 Compatible Apple LLVM 4.2 (clang-425.0.27)'
  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 =' -mmacosx-version-min=10.8 -fstack-protector -L/usr/local/lib -L/opt/local/lib'
  libpth=/usr/local/lib /usr/bin/../lib/clang/4.2/lib /usr/lib /opt/local/lib
  libs=-lpthread -ldbm -ldl -lm -lutil -lc
  perllibs=-lpthread -ldl -lm -lutil -lc
  libc=
  so=dylib
  useshrplib=false
  libperl=libperl.a
  gnulibc_version=''
Dynamic Linking:
  dlsrc=dl_dlopen.xs
  dlext=bundle
  d_dlsymun=undef
  ccdlflags=' '
  cccdlflags=' '
  lddlflags=' -mmacosx-version-min=10.8 -bundle -undefined dynamic_lookup -L/usr/local/lib -L/opt/local/lib -fstack-protector'


Characteristics of this binary (from libperl): 
Compile-time options:
  HAS_TIMES
  PERLIO_LAYERS
  PERL_COPY_ON_WRITE
  PERL_DONT_CREATE_GVSV
  PERL_MALLOC_WRAP
  PERL_OP_PARENT
  PERL_PRESERVE_IVUV
  PERL_USE_DEVEL
  PERL_USE_SAFE_PUTENV
  USE_64_BIT_ALL
  USE_64_BIT_INT
  USE_LARGE_FILES
  USE_LOCALE
  USE_LOCALE_COLLATE
  USE_LOCALE_CTYPE
  USE_LOCALE_NUMERIC
  USE_LOCALE_TIME
  USE_PERLIO
  USE_PERL_ATOF
Built under darwin
Compiled at Nov 26 2017 13:47:48
@INC:
  /usr/local/lib/perl5/site_perl/5.27.7/darwin-2level
  /usr/local/lib/perl5/site_perl/5.27.7
  /usr/local/lib/perl5/5.27.7/darwin-2level
  /usr/local/lib/perl5/5.27.7
  /usr/local/lib/perl5/site_perl


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