diff options
Diffstat (limited to 'src/SVG/SVG2zinc.pm')
| -rw-r--r-- | src/SVG/SVG2zinc.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/SVG/SVG2zinc.pm b/src/SVG/SVG2zinc.pm index 75e1429..d1e3235 100644 --- a/src/SVG/SVG2zinc.pm +++ b/src/SVG/SVG2zinc.pm @@ -1167,7 +1167,7 @@ my %save_current_context = (); if ($current_font_key =~ /^XLFD/) { my $fontname = $current_font_key; $fontname =~ s/^XLFD//; - push (@ascent, "\$ascent = int(\`xlsfonts -l -fn '$fontname' |tail -1|cut -c 31-33\`);"); + push (@ascent, "\$ascent = -> fontMetrics ('$fontname', -ascent);"); } else { push (@ascent, "\$ascent = -> fontMetrics (\$fonts{\"$current_font_key\"}, -ascent);"); } |