1*5486feefSafresh1# -*- mode: perl; -*- 2*5486feefSafresh1 3*5486feefSafresh1# check for cpan rt #121139 4*5486feefSafresh1 5*5486feefSafresh1use strict; 6*5486feefSafresh1use warnings; 7*5486feefSafresh1use Test::More tests => 2; 8*5486feefSafresh1use Math::BigRat; 9*5486feefSafresh1 10*5486feefSafresh1my $a = Math::BigRat->new('3/2'); 11*5486feefSafresh1my $x = Math::BigRat->new('2/3'); 12*5486feefSafresh1is("$a", "3/2"); 13*5486feefSafresh1 14*5486feefSafresh1my $y = $a; 15*5486feefSafresh1$y = $x * $y; 16*5486feefSafresh1is("$a", "3/2"); 17