Bug #53180 for Fraction: Segmentation fault

Sorry,

I used in my program:

Show quoted text

use Math::Fraction qw( frac ); 

my $f = 8 / 9;    # or (any * 8 / 9)

my $a = frac("$f");

Show quoted text

I run program and output:

Segmentation fault


Note:
~~~~~
I use Linux.
I installed this module and was error message:

$ make test
LD_BIND_NOW=1 PERL_DL_NONLAZY=1 /usr/bin/perl5.8.8 "-Iblib/lib" "-Iblib/arch" test.pl
FractionTest....Scalar value @tags[$RED_STATE] better written as $tags[$RED_STATE] at blib/lib/Math/Fraction.pm line 127.
Ambiguous call resolved as CORE::abs(), qualify as such or use & at blib/lib/Math/Fraction.pm line 645.
Ambiguous call resolved as CORE::abs(), qualify as such or use & at blib/lib/Math/Fraction.pm line 645.
Ambiguous call resolved as CORE::abs(), qualify as such or use & at blib/lib/Math/Fraction.pm line 646.
Ambiguous call resolved as CORE::abs(), qualify as such or use & at blib/lib/Math/Fraction.pm line 646.
Ambiguous call resolved as CORE::abs(), qualify as such or use & at blib/lib/Math/Fraction.pm line 701.
Ambiguous call resolved as CORE::abs(), qualify as such or use & at blib/lib/Math/Fraction.pm line 701.
Test: $f1 = frac("3267893629762/32678632179820")
"1633946814881/16339316089910" ne
"3267893629762/32678632179820"
Test: $f2 = frac("5326875886785/76893467996910")
"355125059119/5126231199794" ne
"5326875886785/76893467996910"
Test: $f1+$f2
"3544622433410082528180951/20939777980848187019369635" ne
"21267734600460495169085706/125638667885089122116217810"
Test: $f1*$f2
"580255459231916873949839/83759111923392748077478540" ne
"1740766377695750621849517/251277335770178244232435620"
Test: $f1 = frac("3267893629762/32678632179820", BIG)
"1633946814881/16339316089910" ne
"3267893629762/32678632179820"
FractionTest....dubious
Test returned status 0 (wstat 11, 0xb)
FAILED--1 test script could be run, alas--no output ever seen
make: *** [test_dynamic] Ошибка 255