On Wed, 23 Oct 2002, Brian Ingerson wrote:
> http://ttul.org/~ingy/release/Inline-0.44-TRIAL8.tar.gz
I get the following errors:
t/01syntax.....1..5
Uncaught exception from user code:
Uncaught exception from user code:
Assertion failed: file "pp.c", line 2662 at
/usr/local/perl5.005_03/lib/site_perl/5.005/Parse/RecDescent.pm line 1737.
Parse::RecDescent::Replace('Parse::RecDescent=HASH(0x105266ac)', '^Jcode:
part(s) ^J {^J return 1;^J }^J^Jpart: ...') called at
/usr/local/perl5.005_03/lib/site_perl/5.005/Parse/RecDescent.pm line 1723
Parse::RecDescent::new('Parse::RecDescent', '^Jcode: part(s) ^J {^J
return 1;^J }^J^Jpart: ...') called at
../blib/lib/Inline/C/ParseRecDescent.pm line 20
Inline::C::ParseRecDescent::get_parser('Inline::C=HASH(0x10233534)') called at
../blib/lib/Inline/C.pm line 322
Inline::C::get_parser('Inline::C=HASH(0x10233534)') called at
../blib/lib/Inline/C.pm line 308
Inline::C::parse('Inline::C=HASH(0x10233534)') called at
../blib/lib/Inline/C.pm line 280
Inline::C::call('Inline::C=HASH(0x10233534)', 'parse', 'Build Parse') called
at ../blib/lib/Inline/C.pm line 261
Inline::C::build('Inline::C=HASH(0x10233534)') called at ../blib/lib/Inline.pm
line 267
Inline::glue('Inline::C=HASH(0x10233534)') called at ../blib/lib/Inline.pm
line 205
Inline::init called at (eval 2) line 5
Inline::INIT() called at t/01syntax.t line 0
eval {...} called at t/01syntax.t line 0
END failed--cleanup aborted.
dubious
Test returned status 2 (wstat 512, 0x200)
DIED. FAILED tests 1-5
Failed 5/5 tests, 0.00% okay
As you know by now (but repeated for clarity)
This is perl, version 5.005_03 built for ppc-linux
Characteristics of this binary (from libperl):
Compile-time options: DEBUGGING
Looks to me like you've hit the bug in Parse::RecDescent with debugging
perl you mentioned in the actual Inline code this time.
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http://www.twoshortplanks.com/ [EMAIL PROTECTED]
';use Term'Cap;$t=Tgetent Term'Cap{};print$t->Tputs(cl);for$w(split/ +/
){for(0..30){$|=print$t->Tgoto(cm,$_,$y)." $w";select$k,$k,$k,.03}$y+=2}
