bigint and eval

[Yakov]

When I add 'use bigint' to the working program, it stops working.

I tracked the problem to eval(). eval() (evaluates simple arithmetic
expression gioven as string) works without bigint, but stops working
when bigint is added:

perl -e '$expr="1+2"; print eval($expr)' # prints 3 as expected
-- works

perl -e 'use bigint; $expr="1+2"; print eval($expr)' #prints
nothing
-- stops working when 'use bigint' is added

How do I fix eval() in the presence of 'use bigint' ?

Thanks
Yakov

 

[anno4000]

When I add 'use bigint' to the working program, it stops working.

I tracked the problem to eval(). eval() (evaluates simple arithmetic
expression gioven as string) works without bigint, but stops working
when bigint is added:

perl -e '$expr="1+2"; print eval($expr)' # prints 3 as expected
-- works

perl -e 'use bigint; $expr="1+2"; print eval($expr)' #prints
nothing
-- stops working when 'use bigint' is added

How do I fix eval() in the presence of 'use bigint' ?

Start with finding out what went wrong in th first place. Print $@
after the eval.

Anno

 

[Yakov]

Start with finding out what went wrong in th first place. Print $@
after the eval.

Anno

'print $@' prints
error isConstant(undef): $^H{integer} is not defined at (eval 5) line
1, at end of line
Constant(undef): $^H{integer} is not defined at (eval 5) line 1, at
end of line

Yakov

 

[anno4000]

'print $@' prints
error isConstant(undef): $^H{integer} is not defined at (eval 5) line
1, at end of line
Constant(undef): $^H{integer} is not defined at (eval 5) line 1, at
end of line

It looks like the bigint pragma only works with perl5.9.* and better.
That's arguably a bug, the module should check the version.

Anno

 

[Mumia W.]

When I add 'use bigint' to the working program, it stops working.

I tracked the problem to eval(). eval() (evaluates simple arithmetic
expression gioven as string) works without bigint, but stops working
when bigint is added:

perl -e '$expr="1+2"; print eval($expr)' # prints 3 as expected
-- works

perl -e 'use bigint; $expr="1+2"; print eval($expr)' #prints
nothing
-- stops working when 'use bigint' is added

How do I fix eval() in the presence of 'use bigint' ?

Thanks
Yakov

For reasons that I haven't figured out yet, the "use bigint;" has to be
within the eval():

perl -le 'print eval("use bigint; 1+2")'

Maybe Perl is using a source filter to change ordinary Perl numbers into
something else.