new font-switcher Perl extension

[Adam Spiers]

On Wed, Jan 21, 2009 at 05:05:12PM -0500, Aron Griffis wrote:
> Hi Adam,
> 
> I needed the following patch to keep whitespace between fonts and
> pipes from interfering.
> 
> Thanks,
> Aron
> 
> 
> --- font-switcher.old	2009-01-21 17:02:56.000000000 -0500
> +++ font-switcher	2009-01-21 17:03:06.000000000 -0500
> @@ -51,7 +51,7 @@
>    my ($term) = @_;
>    my $font_list = $term->x_resource('font-switcher-list');
>    if ($font_list) {
> -    @font_list = split /\|\s*/, $font_list;
> +    @font_list = split /\s*\|\s*/, $font_list;
>    }
>  }

That tweak was already in the latest version I posted :-)