# The metrics_path is used to locate metrics files # use Config; my $path_sep = $Config{path_sep}; my $metrics_path = $ENV{METRICS} || join $path_sep, grep -d, '/usr/lib/afm', '/usr/local/lib/afm', '/usr/openwin/lib/fonts/afm/', '.', map "$_/Font/afm", @INC; $metrics_path =~ tr&\\&/& if $path_sep eq ';'; my @metrics_path = split(/$path_sep/, $metrics_path); foreach (@metrics_path) { s,/$,, } # remove trailing slashes