… | … | ||
---|---|---|---|
1206 | } | 1206 | } |
1207 | 1207 | ||
1208 | sub Math::BigRat::TO_CBOR { | 1208 | sub Math::BigRat::TO_CBOR { |
1209 | my ($n, $d) = $_[0]->parts; | 1209 | my ($n, $d) = $_[0]->parts; |
1210 | 1210 | ||
1211 | # older versions of BigRat need *=1, as they not always return numbers | 1211 | # older versions of BigRat need *1, as they not always return numbers |
1212 | 1212 | ||
1213 | $d*1 == 1 | 1213 | $d*1 == 1 |
1214 | ? $n*1 | 1214 | ? $n*1 |
1215 | : tag 30, [$n*1, $d*1] | 1215 | : tag 30, [$n*1, $d*1] |
1216 | } | 1216 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |