| Recent Topics | heading style: summary | tabular |
|
|
Smoke [5.11.4] v5.11.4-67-g0972ecd FAIL(F) MSWin32 Win2000 SP4 (x86/1 cpu)
By George Greer in Perl 5 Porters at Feb 9, 2010, 01:40 am UTC
Automated smoke report for 5.11.4 patch 0972ecdf6decc0f53d00772c18026d31b7a= af416 v5.11.4-67-g0972ecd perl-win2k: Intel(R) Core(TM) i7 CPU 920 @ 2.67GHz(~3440 MHz) (x86/1 cpu) on MSWin32 - Win2000 SP4 using cl version 14.00.50727.762 smoketime 4 hours 8 minutes (average 31 minutes 7 seconds)... More...
Automated smoke report for 5.11.4 patch 0972ecdf6decc0f53d00772c18026d31b7aaf416 v5.11.4-67-g0972ecd
perl-win2k: Intel(R) Core(TM) i7 CPU 920 @ 2.67GHz(~3440 MHz) (x86/1 cpu)
on MSWin32 - Win2000 SP4
using cl version 14.00.50727.762
smoketime 4 hours 8 minutes (average 31 minutes 7 seconds)
Summary: FAIL(F)
O = OK F = Failure(s), extended report at the bottom
X = Failure(s) under TEST but not under harness
? = still running or test results not (yet) available
Build failures during: - = unknown or N/A
c = Configure, m = make, M = make (after miniperl), t = make test-prep
v5.11.4-67-g0972ecd Configuration (common) none
----------- ---------------------------------------------------------
O O
O O -Duselargefiles
O F -Duseithreads
O O -Duseithreads -Duselargefiles
| +--------- -DDEBUGGING
+----------- no debugging
Locally applied patches:
SMOKE0972ecdf6decc0f53d00772c18026d31b7aaf416
Failures: (common-args) none
[default] -DDEBUGGING -Duseithreads
../t/re/reg_fold.t..........................................FAILED
4428, 4434
../dist/threads-shared/t/waithires.t........................FAILED
Bad plan. You planned 57 tests but ran 14.
Compiler messages(MSWin32):
Cwd.xs(75) : warning C4101: 'symlink' : unreferenced local variable
--
Report by Test::Smoke v1.39 build 1235 running on perl 5.10.0
(Reporter v0.035 / Smoker v0.044)
0 Replies
|
|
|
[PATCH] Benchmark.t test 24 bug
By Todd Rinaldo in Perl 5 Porters at Feb 8, 2010, 11:38 pm UTC
--Apple-Mail-39--397705755 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=us-ascii I sent this to perlbugs 2 hours ago but there seems to be a problem. I = thought I'd send it here in the mean time. Test 24 is failing for me on some systems: # Failed test 'timestr... More...
--Apple-Mail-39--397705755
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
charset=us-ascii
I sent this to perlbugs 2 hours ago but there seems to be a problem. I thought I'd send it here in the mean time.
Test 24 is failing for me on some systems:
# Failed test 'timestr ($diff, "noc")'
# at lib/Benchmark.t line 123.
# ' 7 wallclock secs ( 7.03 usr + 0.04 sys = 7.07 CPU)'
# doesn't match '(?-xism:7 +wallclock secs? +\( *7.03 +usr +\+ +0.04 +sys += +7.08 +CPU\))'
The Test:
my $noc = timestr ($diff, 'noc');
like ($noc, qr/$wallclock +wallclock secs? +\( *$usr +usr +\+ +$sys +sys += +$cpu +CPU\)/, 'timestr ($diff, "noc")');
When I dig into this test, It appears that $cpu is generated from the regex by parsing the 'all' output:
my $all = timestr ($diff, 'all');
my ($wallclock, $usr, $sys, $cusr, $csys, $cpu) = $all =~ $All_Pattern;
This means that the expectation is that the CPU time for 'all' output will match the CPU time for 'noc' output.
CPU time is calculated...
for 'all': $tr->cpu_a
for' noc': $tr->cpu_p
The code to calculate the CPU for each of these is:
sub cpu_p { my($r,$pu,$ps,$cu,$cs) = @{$_[0]}; $pu+$ps ; }
sub cpu_a { my($r,$pu,$ps,$cu,$cs) = @{$_[0]}; $pu+$ps+$cu+$cs ; }
What this means: The only way test 24 can succeed is if $cu and $cs are 0. In my case, extra diag messages show that $cu was 0.01 and this caused the test to fail.
Suggested Patch: There are no comments in the test file to indicate if we're validating formatting or the math on this. I'm inclined to go with formatting so I suggest the following patch for test 24, which will match what test 25 for 'nop' output is doing.
--- a/lib/Benchmark.t
+++ b/lib/Benchmark.t
@@ -114,7 +114,7 @@ is ($auto, $default, 'timestr ($diff, "auto") matches timestr ($diff)');
is (timestr ($diff, 'none'), '', "none supresses output");
my $noc = timestr ($diff, 'noc');
- like ($noc, qr/$wallclock +wallclock secs? +\( *$usr +usr +\+ +$sys +sys += +$cpu +CPU\)/, 'timestr ($diff, "noc")');
+ like ($noc, qr/$wallclock +wallclock secs? +\( *$usr +usr +\+ +$sys +sys += +\d+\.\d\d +CPU\)/, 'timestr ($diff, "noc")');
my $nop = timestr ($diff, 'nop');
like ($nop, qr/$wallclock +wallclock secs? +\( *$cusr +cusr +\+ +$csys +csys += +\d+\.\d\d +CPU\)/, 'timestr ($diff, "nop")');
--Apple-Mail-39--397705755--
0 Replies
|
|
|
Can I `see' what encoding my stream is?
By Tux in Perl 5 Porters at Feb 8, 2010, 11:07 pm UTC
In XS, I have the following snippet: SV *tmp = newSVpv (csv->buffer, csv->used); dSP; require_IO_Handle; PUSHMARK (sp); EXTEND (sp, 2); PUSHs ((dst)); PUSHs (tmp); PUTBACK; result = call_sv (m_print, G_SCALAR | G_METHOD); SPAGAIN; if (result) { result = POPi; unless (result) PUTBACK; SvREFCNT_dec... More...
In XS, I have the following snippet:
--8<---
SV *tmp = newSVpv (csv->buffer, csv->used);
dSP;
require_IO_Handle;
PUSHMARK (sp);
EXTEND (sp, 2);
PUSHs ((dst));
PUSHs (tmp);
PUTBACK;
result = call_sv (m_print, G_SCALAR | G_METHOD);
SPAGAIN;
if (result) {
result = POPi;
unless (result)
(void)SetDiag (csv, 2200);
}
PUTBACK;
SvREFCNT_dec (tmp);
-->8---
To prevent double encoding, is it possible to `see' (from XS) that the
stream is opened with something like
open my $dst, ">:utf8", "file";
or
open my $dst, ">:encoding(utf8)", "file";
or
open my $dst, ">", "file";
binmode $dst, ":encoding(utf8)";
?
--8<---
use strict;
use warnings;
use Data::Peek;
use Encode qw( encode decode );
my $euro = "\x{20ac}";
my $deuro = encode ("utf8", $euro);
DPeek $euro;
DPeek $deuro;
{ open my $fh, ">", "test-plain.out";
print $fh "$euro\n";
}
{ open my $fh, ">:encoding(utf8)", "test-utf8.out";
print $fh "$euro\n";
}
{ open my $fh, ">", "test-encode.out";
print $fh "$deuro\n";
}
{ open my $fh, ">:encoding(utf8)", "test-utf8enc.out";
print $fh "$deuro\n";
}
-->8---
PV("\342\202\254"\0) [UTF8 "\x{20ac}"]
PV("\342\202\254"\0)
Source : "test-encode.out".
00000000 E2 82 AC 0A ....
Source : "test-plain.out".
00000000 E2 82 AC 0A ....
Source : "test-utf8enc.out".
00000000 C3 A2 C2 82 C2 AC 0A .......
Source : "test-utf8.out".
00000000 E2 82 AC 0A ....
So, 3 out of 4 are fine (as expected), but if a module want to do the
right thing, it probably needs to know if the right thing is already
being done to prevent the bad double-encoding.
--
H.Merijn Brand http://tux.nl Perl Monger http://amsterdam.pm.org/
using & porting perl 5.6.2, 5.8.x, 5.10.x, 5.11.x on HP-UX 10.20, 11.00,
11.11, 11.23, and 11.31, OpenSuSE 10.3, 11.0, and 11.1, AIX 5.2 and 5.3.
http://mirrors.develooper.com/hpux/ http://www.test-smoke.org/
http://qa.perl.org http://www.goldmark.org/jeff/stupid-disclaimers/2 Replies
|
|
|
Bug in Safe 2.21 (or Opcode) re propagating exceptions
By Tim Bunce in Perl 5 Porters at Feb 8, 2010, 4:38 pm UTC
In the context of PostgreSQL PL/Perl, which uses Safe, David Wheeler pointed me to a bug in Safe 2.21. The effect is that an exception thrown from a closure gets lost. I've boiled it down to this: perl -MSafe -e 'Safe->new->reval(q{sub { die @_ }})->(qq{ok\n})' That should die with "ok" but doesn't... More...
In the context of PostgreSQL PL/Perl, which uses Safe, David Wheeler
pointed me to a bug in Safe 2.21. The effect is that an exception thrown
from a closure gets lost.
I've boiled it down to this:
perl -MSafe -e 'Safe->new->reval(q{sub { die @_ }})->(qq{ok\n})'
That should die with "ok" but doesn't on 5.10.1 or 5.11.4 or 5.8.6.
It does die, correctly, on a whole bunch of other versions I have
lying around locally.
This is a heads up as I'm starting to dig. Any thoughts most welcome...
Tim.
0 Replies
|
|
|
document '#define PERL_CORE' ???
By Dave Mitchell in Perl 5 Porters at Feb 8, 2010, 9:09 pm UTC
We don't currently mention PERL_CORE in perlguts.pod. I'm wondering whether we should mention it, purely in the negative context of stopping people cargo-culting it: i.e. just because they copied some XS from a module that used it, doesn't mean that they should use it too. Something along the lines... More...
We don't currently mention PERL_CORE in perlguts.pod.
I'm wondering whether we should mention it, purely in the negative context of
stopping people cargo-culting it: i.e. just because they copied some XS from
a module that used it, doesn't mean that they should use it too.
Something along the lines of:
"Don't use this. It exposes the perl innards, which change between
releases and thus your code will break with every new release"
Also it means that someone who complains that their XS has broken can be
pointed at the docs.
--
My get-up-and-go just got up and went.
2 Replies
|
|
|
Re: PATCH [perl #56444] delayed interpolation of \N{...} charnames escapes in regexes in perl 5.9.x and later causes breakage
By Dave Mitchell in Perl 5 Porters at Feb 9, 2010, 01:35 am UTC
Thanks for this! I've had a look through and it seems generally ok. (Actually my eyes glazed over after a while, especially in the toke.c bits, so if someone else wants to inspect this too, feel free!) A few comments: compiler, but not to double-quoted strings in the lexer; i.e. this is illegal: $x... More...
On Sat, Feb 06, 2010 at 04:30:50PM -0700, karl williamson wrote:
> This patch should be carefully reviewed because it is to critical
> components of Perl, and I certainly am not an expert in the tokenizer,
> and also may not understand some underlying philosophies.
Thanks for this!
I've had a look through and it seems generally ok. (Actually my eyes
glazed over after a while, especially in the toke.c bits, so if someone
else wants to inspect this too, feel free!)
A few comments:
> but I decided to not expose it externally for
> now in case we find reason to change it.
At a quick glance, I think you mean that its exposed to the regex
compiler, but not to double-quoted strings in the lexer; i.e.
this is illegal:
$x = "\N{U+11.22.33.44}"
but this works:
$re = '\N{U+11.22.33.44}'
/$re/;
So it's partially exposed (but undocumented) in 5.12?
Can it cope with a charhandler that returns a zero-length string?
regcurly should be defined as Perl_regcurly in regcomp.c; then add the p
flag to embed.fnc to make it possible to call it as 'regcurly' within
core. Otherwise you may get a name clash when perl is embedded/extended.
You've added a lot of useful explanatory text in perldelta and perldiag;
does some of this need to make its way into *re*.pod too?
> +=item Using just the first bytes returned by \N{}
Perhaps you should avoid using the word 'bytes' here as it has unfortunate
historical "bytes" verses "chars/unicode" connotations?
> For example I made some errors there fatal, whereas one could instead
> change an invalid input character into a UNICODE_REPLACEMENT and press
> ahead. I chose this because it was easier, and it's extremely unlikely
> that the change would be something that the user wanted. If we know at
> compile time that something won't work, why even try to execute? But
> perhaps that is contrary to standard practice.
I think being fatal in the lexer is good.
> I included enough tests to exercise every leg I could figure out a way
> to in the affected code. I didn't know where to put some of the tests
> for \N in a double quoted string
Looks like they should go in lib/charnames.t
--
The crew of the Enterprise encounter an alien life form which is
surprisingly neither humanoid nor made from pure energy.
-- Things That Never Happen in "Star Trek" #22
8 Replies
|
|
|
Non-Moose metaclasses
By Jesse Luehrs in Moose at Feb 8, 2010, 10:19 pm UTC
So, after a discussion with mst in #moose, he pointed out that initializing a non-Moose class with a Moose metaclass is a bug, and we really shouldn't be doing it. This occurs quite a bit in code within CMOP and Moose, which does things like: for my $class ($self->linearized_isa) { my $meta =... More...
So, after a discussion with mst in #moose, he pointed out that
initializing a non-Moose class with a Moose metaclass is a bug, and we
really shouldn't be doing it. This occurs quite a bit in code within
CMOP and Moose, which does things like:
for my $class ($self->linearized_isa) {
my $meta = $self->initialize($class);
...
}
and similarly with $self->superclasses, etc. When called on a Moose
class, this will initialize any non-Moose ancestors with a metaclass of
Moose::Meta::Class, which isn't really correct.
I looked into this, and it seems like the only way to accomplish this
safely is to not cache metaclasses which aren't explicitly initialized.
I've implemented this on the topic/nonmoose_gets_cmop_meta branches of
CMOP and Moose (the name is from an earlier attempt which used a
different strategy). It seems to work properly, and fixes the issues
that I've been able to find, but I was wondering if people think this is
a sane thing to want to do, or if this is going to cause other issues
down the road.
Another possible solution to this problem would be to force all classes
which get incidentally initialized like this to have CMOP metaclasses,
but this tends to break in complicated inheritance situations - for
instance, Moose::init_meta won't reinitialize a class with a CMOP
metaclass to have a Moose metaclass, it just throws an error (probably
since upgrading the metaclass in a safe way that preserves things like
existing attributes and such would be a pain). Also, in some situations,
the temporary metaclass needs to be a Moose::Meta::Class -
_fix_metaclass_incompatibility for instance doesn't exist in CMOP, so in
a Moose - non-Moose - Moose inheritance setup, the non-Moose class needs
to get a Moose metaclass to run _fix_metaclass_incompatibility on to see
if it is going to need fixing (this isn't a big deal, since metaclass
compatibility means that it needs to have a Moose metaclass anyway, but
still something to watch out for).
So... any thoughts?
-doy
1 Reply
|
|
|
[perl #72602] POSIX.pm does not include strsignal(3)
By Kevin Wolf in Perl 5 Porters at Feb 8, 2010, 3:15 pm UTC
# New Ticket Created by rleigh@debian.org # Please include the string: [perl #72602] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=72602 > This is a bug report for perl from rleigh@debian.org, generated with the help of... More...
# New Ticket Created by [email protected: r...@debian.org]
# Please include the string: [perl #72602]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=72602 >
This is a bug report for perl from [email protected: r...@debian.org],
generated with the help of perlbug 1.39 running under perl 5.10.1.
-----------------------------------------------------------------
POSIX.pm does not include the fuction strsignal(3), used to
return a string describing a signal. It would be great if this
functionality could be added.
Thanks,
Roger
[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
category=library
severity=low
module=POSIX
---
Site configuration information for perl 5.10.1:
Configured by Debian Project at Sat Jan 16 20:42:52 UTC 2010.
Summary of my perl5 (revision 5 version 10 subversion 1) configuration:
Platform:
osname=linux, osvers=2.6.32-trunk-amd64, archname=x86_64-linux-gnu-thread-multi
uname='linux madeleine 2.6.32-trunk-amd64 #1 smp sun jan 10 22:40:40 utc 2010 x86_64 gnulinux '
config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=x86_64-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.10 -Darchlib=/usr/lib/perl/5.10 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.10.1 -Dsitearch=/usr/local/lib/perl/5.10.1 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -DDEBUGGING=-g -Doptimize=-O2 -Duseshrplib -Dlibperl=libperl.so.5.10.1 -Dd_dosuid -des'
hint=recommended, useposix=true, d_sigaction=define
useithreads=define, usemultiplicity=define
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=define, use64bitall=define, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O2 -g',
cppflags='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
ccversion='', gccversion='4.4.3 20100108 (prerelease)', gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib /lib64 /usr/lib64
libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
perllibs=-ldl -lm -lpthread -lc -lcrypt
libc=/lib/libc-2.10.2.so, so=so, useshrplib=true, libperl=libperl.so.5.10.1
gnulibc_version='2.10.2'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fPIC', lddlflags='-shared -O2 -g -L/usr/local/lib -fstack-protector'
Locally applied patches:
---
@INC for perl 5.10.1:
/etc/perl
/usr/local/lib/perl/5.10.1
/usr/local/share/perl/5.10.1
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.10
/usr/share/perl/5.10
/usr/local/lib/site_perl
.
---
Environment for perl 5.10.1:
HOME=/home/rleigh
LANG=en_GB.UTF-8
LANGUAGE=
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=/home/rleigh/bin:/usr/local/bin:/usr/bin:/bin:/usr/bin/X11:/usr/games
PERL_BADLANG (unset)
SHELL=/usr/bin/zsh
1 Reply
|
|
|
Class::ISA CPAN install destination
By Todd Rinaldo in Perl 5 Porters at Feb 8, 2010, 7:28 pm UTC
--Apple-Mail-35--746224174 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=us-ascii There seems to be a conflict in Install location between CPAN and core = perl for Class::ISA. looking at the make file, it's installing to site if perl > 5.11:=20 'INSTALLDIRS' =3D>... More...
--Apple-Mail-35--746224174
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
charset=us-ascii
There seems to be a conflict in Install location between CPAN and core perl for Class::ISA.
looking at the make file, it's installing to site if perl > 5.11:
'INSTALLDIRS' => ((($] >= 5.007003) && ($] < 5.011)) ? 'perl' : 'site'),
I also note that Porting/Maintainers.PL has this module labeled as DEPRECATED. So if this is the reason CPAN is installing the module into site, I'm cool with that, but shouldn't core also install the module to the same place so we don't have 2 copies of the module if cpan ever does an upgrade of the module?
Alternatively what seems more appropriate is to change INSTALLDIRS to do $] < 5.013 if that's where we plan to remove it as a core module.
Thanks,
Todd
--Apple-Mail-35--746224174--
10 Replies
|
|
|
[perl #72330] assertion failures when running with -t switch and tainted @INC
By Kevin Wolf in Perl 5 Porters at Feb 9, 2010, 12:17 am UTC
# New Ticket Created by Niko Tyni # Please include the string: [perl #72330] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=72330 > This is a bug report for perl from Niko Tyni <ntyni@debian.org>, generated with the help of... More...
# New Ticket Created by Niko Tyni
# Please include the string: [perl #72330]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=72330 >
This is a bug report for perl from Niko Tyni <ntyni@debian.org>,
generated with the help of perlbug 1.39 running under perl 5.11.4.
-----------------------------------------------------------------
A suitable combination of tainted @INC, the '-t' switch and stubs for
undefined constants causes an assertion failure with -DDEBUGGING and
intermittent segmentation faults otherwise.
Originally reported as http://bugs.debian.org/565703, reproducible
on current bleadperl:
% ./perl -t -Ilib -e 'unshift @INC, shift; require Fcntl' foo
Insecure dependency in require while running with -t switch at -e line 1.
Insecure dependency in require while running with -t switch at -e line 1.
Insecure dependency in require while running with -t switch at lib/Fcntl.pm line 58.
Insecure dependency in require while running with -t switch at lib/Fcntl.pm line 58.
Insecure dependency in require while running with -t switch at lib/Fcntl.pm line 58.
Insecure dependency in require while running with -t switch at lib/Fcntl.pm line 62.
Insecure dependency in require while running with -t switch at lib/Fcntl.pm line 62.
Insecure dependency in require while running with -t switch at lib/Fcntl.pm line 62.
perl: gv.c:241: Perl_gv_init: Assertion `!((gv)->sv_flags & 0x00004000)' failed.
zsh: abort (core dumped) ./perl -t -Ilib -e 'unshift @INC, shift; require Fcntl' foo
Other variants include
% echo 'XSLoader::load(q(Fcntl))' > T.pm && ./perl -Ilib -MXSLoader -I. -t -e 'unshift @INC, shift; require T; *a = \&{"Fcntl::S_IFWHT"}' foo
Insecure dependency in require while running with -t switch at -e line 1.
[...]
perl: mg.c:219: Perl_mg_get: Assertion `!(((_svmagic)->sv_flags & (0x40000000|0x00040000)) == (0x40000000|0x00040000))' failed.
and
% echo 'XSLoader::load(q(POSIX))' > T.pm && ./perl -Ilib -MXSLoader -I. -t -e 'unshift @INC, shift; require T; *a = \&{"POSIX::CLK_TCK"}' foo
which fails in the same way.
The problem seems to be related to the stubs for undefined constants;
the ones used above are not defined on this platform.
./perl -Ilib -MPOSIX -E 'say POSIX::CLK_TCK'
Your vendor has not defined POSIX macro CLK_TCK, used at -e line 1
./perl -Ilib -MFcntl -E 'say Fcntl::S_IFWHT'
Your vendor has not defined Fcntl macro S_IFWHT, used at -e line 1.
Blead backtrace of the first case:
Core was generated by `./perl -t -Ilib -e unshift @INC, shift; require Fcntl foo'.
Program terminated with signal 6, Aborted.
#0 0x00007f86090b5f55 in *__GI_raise (sig=<value optimized out>)
at ../nptl/sysdeps/unix/sysv/linux/raise.c:64
64 ../nptl/sysdeps/unix/sysv/linux/raise.c: No such file or directory.
in ../nptl/sysdeps/unix/sysv/linux/raise.c
(gdb) bt
#0 0x00007f86090b5f55 in *__GI_raise (sig=<value optimized out>)
at ../nptl/sysdeps/unix/sysv/linux/raise.c:64
#1 0x00007f86090b8d90 in *__GI_abort () at abort.c:88
#2 0x00007f86090af07a in *__GI___assert_fail (assertion=0x74b9d8 "!((gv)->sv_flags & 0x00004000)",
file=<value optimized out>, line=241, function=0x7524df "Perl_gv_init") at assert.c:78
#3 0x0000000000464e44 in Perl_gv_init (my_perl=0xd20010, gv=0xd7ab10, stash=0xd42898,
name=0xd88528 "S_IFWHT", len=7, multi=2) at gv.c:241
#4 0x000000000046c902 in Perl_gv_fetchpvn_flags (my_perl=0xd20010, nambeg=0xd88528 "S_IFWHT",
full_len=7, flags=3, sv_type=SVt_PVCV) at gv.c:1142
#5 0x000000000046af9b in Perl_gv_fetchsv (my_perl=0xd20010, name=0xd885c0, flags=3, sv_type=SVt_PVCV)
at gv.c:911
#6 0x000000000043eec0 in Perl_ck_rvconst (my_perl=0xd20010, o=0xd89670) at op.c:6788
#7 0x000000000042c343 in Perl_newUNOP (my_perl=0xd20010, type=17, flags=0, first=0xd89630) at op.c:3109
#8 0x000000000043d7b4 in Perl_newCVREF (my_perl=0xd20010, flags=0, o=0xd89630) at op.c:6393
#9 0x00000000004991f2 in Perl_yylex (my_perl=0xd20010) at toke.c:6056
#10 0x00000000004c0fd9 in Perl_yyparse (my_perl=0xd20010) at perly.c:414
#11 0x000000000065280f in S_doeval (my_perl=0xd20010, gimme=2, startop=0x0, outside=0x0, seq=0)
at pp_ctl.c:3089
#12 0x0000000000659836 in Perl_pp_require (my_perl=0xd20010) at pp_ctl.c:3657
#13 0x0000000000518cb7 in Perl_runops_debug (my_perl=0xd20010) at dump.c:2049
#14 0x00000000004548ea in S_run_body (my_perl=0xd20010, oldscope=1) at perl.c:2308
#15 0x0000000000453bb2 in perl_run (my_perl=0xd20010) at perl.c:2233
#16 0x000000000042302d in main (argc=6, argv=0x7fffb80bc108, env=0x7fffb80bc140) at perlmain.c:117
-----------------------------------------------------------------
---
Flags:
category=core
severity=low
---
Site configuration information for perl 5.11.4:
Configured by niko at Sun Jan 24 20:28:38 EET 2010.
Summary of my perl5 (revision 5 version 11 subversion 4) configuration:
Commit id: fe61459e95657c432074058bd8854fec03559335
Platform:
osname=linux, osvers=2.6.32-trunk-amd64, archname=x86_64-linux-gnu-thread-multi
uname='linux madeleine 2.6.32-trunk-amd64 #1 smp sun jan 10 22:40:40 utc 2010 x86_64 gnulinux '
config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=x86_64-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.11 -Darchlib=/usr/lib/perl/5.11 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.11.4 -Dsitearch=/usr/local/lib/perl/5.11.4 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -DDEBUGGING=both -Doptimize=-O0 -Dusedevel -Uuseshrplib -des'
hint=recommended, useposix=true, d_sigaction=define
useithreads=define, usemultiplicity=define
useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
use64bitint=define, use64bitall=define, uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O0 -g',
cppflags='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
ccversion='', gccversion='4.4.3 20100108 (prerelease)', gccosandvers=''
intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib /lib64 /usr/lib64
libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc -lgdbm_compat
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
libc=/lib/libc-2.10.2.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.10.2'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fPIC', lddlflags='-shared -O0 -g -L/usr/local/lib -fstack-protector'
Locally applied patches:
---
@INC for perl 5.11.4:
lib
/usr/local/lib/perl/5.11.4
/usr/local/share/perl/5.11.4
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.11
/usr/share/perl/5.11
.
---
Environment for perl 5.11.4:
HOME=/home/niko
LANG=en_US.UTF-8
LANGUAGE (unset)
LC_CTYPE=fi_FI.UTF-8
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=/home/niko/bin:/home/niko/bin:/home/niko/bin:/usr/local/bin:/usr/bin:/bin:/usr/local/games:/usr/games:/sbin:/usr/sbin:/sbin:/usr/sbin
PERL_BADLANG (unset)
SHELL=/bin/zsh
2 Replies
|
|
 | |
