Attributes + Unkown Error #9179
Comments
From mz@webdev07.wirtschaftsblatt.lanThis is a bug report for perl from mz@webdev07, trying to compile the below module with perl5.10 yields a fuzzy error message in contrast to 5.8.8 where the linenumber and the reason are given -------------->8------------------------------------ use strict; sub MODIFY_CODE_ATTRIBUTES {} sub asd : Blah { 1; Flags: Site configuration information for perl 5.10.0: Configured by mz at Wed Jan 2 10:30:04 CET 2008. Summary of my perl5 (revision 5 version 10 subversion 0) configuration: Locally applied patches: @INC for perl 5.10.0: Environment for perl 5.10.0: |
From @andk
> trying to compile the below module with perl5.10 yields a fuzzy error message > in contrast to 5.8.8 where the linenumber and the reason are given Binary search reveals the reduced errormessage started with 31255. -- |
The RT System itself - Status changed from 'new' to 'open' |
From @nwc10On Sat, Feb 09, 2008 at 06:35:11AM +0100, Andreas J. Koenig wrote:
Feeling somewhat more "in your face" than Andreas, I've appended it all, Nicholas Clark Change 31255 by davem@davem-pigeon on 2007/05/21 22:35:15 move PL_error_count into the PL_parser struct Affected files ... ... //depot/perl/embedvar.h#253 edit Differences ... ==== //depot/perl/embedvar.h#253 (text+w) ==== @@ -133,7 +133,6 @@ ==== //depot/perl/intrpvar.h#213 (text) ==== @@ -357,7 +357,6 @@ ==== //depot/perl/op.c#942 (text) ==== @@ -799,7 +799,8 @@ /* assumes no premature commitment */ /* assumes no premature commitment */ /* assumes no premature commitment */ - if (!o || PL_error_count) if ((o->op_private & OPpTARGET_MY) - if (!o || PL_error_count) switch (o->op_type) { - if (!o || PL_error_count) type = o->op_type; - if (PL_error_count) for (curop = LINKLIST(o); curop != o; curop = LINKLIST(curop)) { list(o); PL_op = curop = LINKLIST(o); - if (PL_error_count) { - if (name && !PL_error_count) @@ -6243,7 +6246,8 @@ o->op_ppaddr = PL_ppaddr[OP_GREPSTART]; if (o->op_flags & OPf_STACKED) { ==== //depot/perl/parser.h#19 (text) ==== @@ -77,6 +77,7 @@ #ifdef PERL_MAD ==== //depot/perl/perl.c#812 (text) ==== @@ -2267,9 +2267,8 @@ SETERRNO(0,SS_NORMAL); ==== //depot/perl/perlapi.h#175 (text+w) ==== @@ -302,8 +302,6 @@ ==== //depot/perl/pp_ctl.c#618 (text) ==== @@ -1459,7 +1459,8 @@ OP * #ifdef PERL_MAD PL_eval_root = NULL; /* I was having segfault trouble under Linux 2.2.5 after a if (IoFMT_GV(datasv)) { ==== //depot/perl/sv.c#1405 (text) ==== @@ -9586,6 +9586,7 @@ parser->linestr = sv_dup_inc(proto->linestr, param); PL_parser = parser_dup(proto_perl->Iparser, param); - PL_error_count = proto_perl->Ierror_count; ==== //depot/perl/toke.c#784 (text) ==== @@ -67,6 +67,7 @@ #ifdef PERL_MAD |
From @iabynOn Sat, Feb 09, 2008 at 11:26:13AM +0000, Nicholas Clark wrote:
Fixed by change 33265. -- |
p5p@spam.wizbit.be - Status changed from 'open' to 'resolved' |
Migrated from rt.perl.org#49472 (status was 'resolved')
Searchable as RT49472$
The text was updated successfully, but these errors were encountered: