Description: Perl/Tk scripts running with perl-tk-804.036-2 are unable to select font faces. The same script works fine with 804.036-1

Additional info:
* package version(s) perl-tk-804.036-2

Steps to reproduce:

Run any Perl/Tk script which tries to select a font face. The selected face should be displayed, but isn't, as in the two attached screen captures from this sample script:

#!/usr/bin/perl

use Tk;

my $mw = MainWindow->new(-title => 'Font Example');
my $font1 = 'Mono 12';
my $font2 = '{Monotype Sorts} 12';
my $text = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 0123456789';
my $t1 = $mw->Message(-text=>$text , -font=>$font1, -width=>800); $t1->pack();
my $t2 = $mw->Message(-text=>$text , -font=>$font2, -width=>800); $t2->pack();

MainLoop;