Home | History | Annotate | Download | only in perl

Lines Matching refs:pat2

76     my $pat2 = $pat;    # $pat with "*"s expanded
78     while ($pat2 =~ /[*]/) {
80       $pat2 =~ s/[*]/$arg/;
85       if ($pat2 !~ /[dioxX]$/) {
86 	die "GMP::sprintf: unsupported output format for mpz: $pat2\n";
88       $pat2 =~ s/(.)$/Z$1/;
89       $out .= sprintf_internal ($pat2, shift);
92       if ($pat2 !~ /[dioxX]$/) {
93 	die "GMP::sprintf: unsupported output format for mpq: $pat2\n";
95       $pat2 =~ s/(.)$/Q$1/;
96       $out .= sprintf_internal ($pat2, shift);
99       if ($pat2 !~ /[eEfgG]$/) {
100 	die "GMP::sprintf: unsupported output format for mpf: $pat2\n";
102       $pat2 =~ s/(.)$/F$1/;
103       $out .= sprintf_internal ($pat2, shift);