Searched refs:fraction_ref (Results 1 - 1 of 1) sorted by relevance

/openbsd-current/gnu/usr.bin/perl/lib/unicore/
H A Dmktables12671 sub reduce_fraction($fraction_ref) {
12675 if ($$fraction_ref !~ / ^ (-?) (\d+) \/ (\d+) $ /ax) {
12676 Carp::my_carp_bug("Non-fraction input '$$fraction_ref'. Unchanged");
12693 $$fraction_ref = "$sign$numerator/$denominator";

Completed in 226 milliseconds