Front page | perl.perl5.porters |
Postings from September 2010
Re: fresh_perl failure
Thread Previous
|
Thread Next
From:
Rafael Garcia-Suarez
Date:
September 20, 2010 03:00
Subject:
Re: fresh_perl failure
Message ID:
AANLkTimc7RTB1qXY1vVfkizBrc5t8i5mJFntr04ZSWAB@mail.gmail.com
On 20 September 2010 11:48, Dave Mitchell <davem@iabyn.com> wrote:
> I can't reproduce this at all. Anyone have a failing config and invocation
> to show me?
[rafael@scipion bleadperl]$ ./perl -Ilib -V
Summary of my perl5 (revision 5 version 13 subversion 5) configuration:
Commit id: 8e7d0c4b4f9a32461518a61c3643c060cadc7b52
Platform:
osname=linux, osvers=2.6.32-24-generic, archname=i686-linux
uname='linux scipion 2.6.32-24-generic #42-ubuntu smp fri aug 20
14:24:04 utc 2010 i686 gnulinux '
config_args='-des -Dusedevel -Dprefix=/home/rafael/bleadperl
-Doptimize=-g -DDEBUGGING'
hint=recommended, useposix=true, d_sigaction=define
useithreads=undef, usemultiplicity=undef
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=undef, use64bitall=undef, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-DDEBUGGING -fno-strict-aliasing -pipe
-fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64',
optimize='-g',
cppflags='-DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector
-I/usr/local/include'
ccversion='', gccversion='4.4.3', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib /usr/lib64
libs=-lnsl -ldl -lm -lcrypt -lutil -lc
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
libc=/lib/libc-2.11.1.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.11.1'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fPIC', lddlflags='-shared -g -L/usr/local/lib
-fstack-protector'
Characteristics of this binary (from libperl):
Compile-time options: DEBUGGING PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP
PERL_USE_DEVEL USE_LARGE_FILES USE_PERLIO
USE_PERL_ATOF
Built under linux
Compiled at Sep 20 2010 10:41:23
@INC:
lib
/home/rafael/bleadperl/lib/site_perl/5.13.5/i686-linux
/home/rafael/bleadperl/lib/site_perl/5.13.5
/home/rafael/bleadperl/lib/5.13.5/i686-linux
/home/rafael/bleadperl/lib/5.13.5
.
$ ./perl -Ilib t/run/fresh_perl.t
1..94
ok 1 - fresh_perl - $a = ":="; @_ = split /($a)/o, "a:=b:=c"; print "@...
ok 2 - fresh_perl - $cusp = ~0 ^ (~0 >> 1);
ok 3 - fresh_perl - $foo=undef; $foo->go;
ok 4 - fresh_perl - BEGIN
ok 5 - fresh_perl - $array[128]=1
ok 6 - fresh_perl - $x=0x0eabcd; print $x->ref;
ok 7 - fresh_perl - chop ($str .= <DATA>);
ok 8 - fresh_perl - close ($banana);
ok 9 - fresh_perl - $x=2;$y=3;$x<$y ? $x : $y += 23;print $x;
ok 10 - fresh_perl - eval 'sub bar {print "In bar"}';
ok 11 - fresh_perl - system './perl -ne "print if eof" /dev/null'
ok 12 - fresh_perl - chop($file = <DATA>);
ok 13 - fresh_perl - package N;
ok 14 - fresh_perl - $_="foo";
ok 15 - fresh_perl - push(@a, 1, 2, 3,)
ok 16 - fresh_perl - quotemeta ""
ok 17 - fresh_perl - for ("ABCDE") {
ok 18 - fresh_perl - package FOO;sub new {bless {FOO => BAR}};
ok 19 - fresh_perl - $_="foo";
ok 20 - fresh_perl - print scalar ("foo","bar")
ok 21 - fresh_perl - sub by_number { $a <=> $b; };\# inline function for...
ok 22 - fresh_perl - sub NewShell
ok 23 - fresh_perl - {
ok 24 - fresh_perl - BEGIN { die "phooey\n" }
ok 25 - fresh_perl - BEGIN { 1/$zero }
ok 26 - fresh_perl - BEGIN { undef = 0 }
ok 27 - fresh_perl - {
ok 28 - fresh_perl - my @a; $a[2] = 1; for (@a) { $_ = 2 } print "@a\n"
ok 29 - fresh_perl - \# used to attach defelem magic to all immortal val...
ok 30 - fresh_perl - @a = ($a, $b, $c, $d) = (5, 6);
ok 31 - fresh_perl - print "ok\n" if (1E2<<1 == 200 and 3E4<<3 == 24000...
ok 32 - fresh_perl - print "ok\n" if ("\0" lt "\xFF");
ok 33 - fresh_perl - open(H,'run/fresh_perl.t'); \# must be in the 't' d...
ok 34 - fresh_perl - sub thing { 0 || return qw(now is the time) }
ok 35 - fresh_perl - $ren = 'joy';
ok 36 - fresh_perl - $stimpy = 'happy';
ok 37 - fresh_perl - package p;
ok 38 - fresh_perl - @list = ([ 'one', 1 ], [ 'two', 2 ]);
ok 39 - fresh_perl - ($k, $s) = qw(x 0);
ok 40 - fresh_perl - my $a = 'outer';
ok 41 - fresh_perl - $| = 1;
ok 42 - fresh_perl - $s = 0;
ok 43 - fresh_perl - sub foo { local $_ = shift; @_ = split; @_ }
ok 44 - fresh_perl - /(?{"{"})/ \# Check it outside of eval too
ok 45 - fresh_perl - /(?{"{"}})/ \# Check it outside of eval too
ok 46 - fresh_perl - BEGIN { @ARGV = qw(a b c d e) }
ok 47 - fresh_perl - \# fdopen from a system descriptor to a system desc...
ok 48 - fresh_perl - sub testme { my $a = "test"; { local $a = "new tes...
# PROG:
# package X;
# sub ascalar { my $r; bless \$r }
# sub DESTROY { print "destroyed\n" };
# package main;
# *s = ascalar X;
# EXPECTED:
# destroyed
# GOT:
# STATUS: 0
not ok 49 - fresh_perl - package X;
# Failed at t/run/fresh_perl.t line 55
# PROG:
# package X;
# sub anarray { bless [] }
# sub DESTROY { print "destroyed\n" };
# package main;
# *a = anarray X;
# EXPECTED:
# destroyed
# GOT:
# STATUS: 0
not ok 50 - fresh_perl - package X;
# Failed at t/run/fresh_perl.t line 55
# PROG:
# package X;
# sub ahash { bless {} }
# sub DESTROY { print "destroyed\n" };
# package main;
# *h = ahash X;
# EXPECTED:
# destroyed
# GOT:
# STATUS: 0
not ok 51 - fresh_perl - package X;
# Failed at t/run/fresh_perl.t line 55
# PROG:
# package X;
# sub aclosure { my $x; bless sub { ++$x } }
# sub DESTROY { print "destroyed\n" };
# package main;
# *c = aclosure X;
# EXPECTED:
# destroyed
# GOT:
# STATUS: 0
not ok 52 - fresh_perl - package X;
# Failed at t/run/fresh_perl.t line 55
# PROG:
# package X;
# sub any { bless {} }
# my $f = "FH000"; # just to thwart any future optimisations
# sub afh { select select ++$f; my $r = *{$f}{IO}; delete $X::{$f}; bless $r }
# sub DESTROY { print "destroyed\n" }
# package main;
# $x = any X; # to bump sv_objcount. IO objs aren't counted??
# *f = afh X;
# EXPECTED:
# destroyed
# destroyed
# GOT:
# destroyed
# STATUS: 0
not ok 53 - fresh_perl - package X;
# Failed at t/run/fresh_perl.t line 55
ok 54 - fresh_perl - BEGIN {
ok 55 - fresh_perl - package X;
ok 56 - fresh_perl - re();
ok 57 - fresh_perl - use strict;
ok 58 - fresh_perl - eval '
ok 59 - fresh_perl - if (@ARGV) { print "" }
ok 60 - fresh_perl - $x = sub {};
ok 61 - fresh_perl - \# moved to op/lc.t
ok 62 - fresh_perl - sub f { my $a = 1; my $b = 2; my $c = 3; my $d = 4...
ok 63 - fresh_perl - sub C () { 1 }
ok 64 - fresh_perl - print qw(ab a\b a\\b);
ok 65 - fresh_perl - \# lexicals declared after the myeval() definition ...
ok 66 - fresh_perl - \# lexicals outside an eval"" should be visible ins...
ok 67 - fresh_perl - \# This test is here instead of lib/locale.t becaus...
ok 68 - fresh_perl - \# [ID 20001202.002] and change \#8066 added 'at -e ...
ok 69 - fresh_perl - \# 20001210.003 mjd@plover.com
ok 70 - fresh_perl - \# Inaba Hiroto
ok 71 - fresh_perl - \# Nicholas Clark
ok 72 - fresh_perl - \# Vadim Konovalov
ok 73 - fresh_perl - \# David Dyck
ok 74 - fresh_perl - \# core dump in 20000716.007
ok 75 - fresh_perl - \# Bug 20010515.004
ok 76 - fresh_perl - \# Bug 20010506.041
ok 77 - fresh_perl - my $foo = Bar->new();
ok 78 - fresh_perl - (?{...}) compilation bounces on PL_rs
ok 79 - fresh_perl - scalar ref to file test operator segfaults on
5.6.1 [ID 20011127.155]
ok 80 - fresh_perl - [ID 20011128.159] 'X' =~ /\X/ segfault in 5.6.1
ok 81 - fresh_perl - segfault in 5.6.1 within peep()
ok 82 - fresh_perl - example from Camel 5, ch. 15, pp.406 (with my)
ok 83 - fresh_perl - example from Camel 5, ch. 15, pp.406 (with our)
ok 84 - fresh_perl - example from Camel 5, ch. 15, pp.406 (with package vars)
ok 85 - fresh_perl - example from Camel 5, ch. 15, pp.406 (with use vars)
ok 86 - fresh_perl - \# test that closures generated by eval"" hold on t...
ok 87 - fresh_perl - [ID 20020623.009] nested eval/sub segfaults
ok 88 - fresh_perl - [perl \#17951] Strange UTF error
ok 89 - fresh_perl - [perl \#20667] unicode regex vs non-unicode regex
ok 90 - fresh_perl - [perl \#8760] strangness with utf8 and warn
ok 91 - fresh_perl - glob() bug Mon, 01 Sep 2003 02:25:41 -0700
<200309010925.h819Pf0X011457@smtp3.ActiveState.com>
ok 92 - fresh_perl - glob() bug Mon, 01 Sep 2003 02:25:41 -0700
<200309010925.h819Pf0X011457@smtp3.ActiveState.com>
ok 93 - fresh_perl - "Segfault using HTML::Entities", Richard Jolly
<richardjolly@mac.com>, <A3C7D27E-C9F4-11D8-B294-003065AE00B6@mac.com>
in perl-unicode@perl.org
ok 94 - fresh_perl - "\#75146: 27e904532594b7fb (fix for \#23810)
introduces a \#regression"
Thread Previous
|
Thread Next