#!/usr/bin/env perl
use 5.014;
-use strict;
use warnings;
use Data::Dump 'pp';
}gx;
$meta{os} = $_ for "@ttfext[0 .. $#ttfext-1]" || (
$meta{copyright} =~ /\bGoogle\b/ ? "Android" :
- $ttfname eq 'arialuni' ? 'win95' :
+ $ttfname eq 'arialuni' ? 'win2k' :
()
);
$meta{oscorp} = (
s/^mac10/OS X 10./ ? 'Apple' :
- s/^win/Windows / ? 'Microsoft' :
+ s/^win(.+)/'Windows '.($1 eq '2k' ? 2000 : $1)/e ? 'Microsoft' :
m/^Android/ ? 'Google' :
undef
) for $meta{os} || ();