use IO::File;
use Getopt::Long;
+our $prefix="/usr/local";
our $package='xfonts-traditional';
-our $sharedir="/usr/share/$package";
+our $sharedir="$prefix/share/$package";
+our @fontsdirs=qw(/usr/share/fonts/X11 /usr/local/share/fonts/X11);
our @rulespath;
our $mode;
our %foundrymap;