say "<h1>Browser compatibility</h1>\n";
-my $caniuse = do 'data/browser/support.inc.pl' or die $! || $@;
+my $caniuse = do 'data/browser/support.inc.pl' or die $@ || $!;
$_->{verrelease} = {
# mark last three (future) versions as unreleased, ensure current isn't
map {
'identifier must be alphanumeric name or <q>0</q>';
}
$canihas = do "data/browser/usage-$_.inc.pl" or do {
- printf "<p>Browser usage data not found: <em>%s</em>", $! || $@;
+ printf "<p>Browser usage data not found: <em>%s</em>", $@ || $!;
break;
};
$usage = $_;
$_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
my @table = do "writing-digits.inc.pl";
-die "Table data not found: <em>$_</em>.\n" for $! || $@ || ();
+die "Table data not found: $_\n" for $@ || $! || ();
$glyphs->print([map {
ref $_ eq 'ARRAY' ? @{$_} : map { ".>$_" }
my @table = do 'writing-latn.inc.pl';
if ($! or $@) {
- printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
+ printf "<p class=error>Table data not found: <em>%s</em>.</p>\n", $@ || $!;
}
else {
print $glyphs->table([map {
}
my $units = do 'sc-units.inc.pl';
- die "Cannot open unit data: $_\n" for $! || $@ || ();
+ die "Cannot open unit data: $_\n" for $@ || $! || ();
my $grouped = !exists $get{order};
if (exists $get{order}) {
$get{order} ||= '';
<:
use Shiar_Sheet::Keyboard 2;
-my $info = do 'screen.inc.pl' or die $! // $@;
+my $info = do 'screen.inc.pl' or die $@ // $!;
my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows});
my @table = do "writing-$source.inc.pl";
if ($! or $@) {
print "<h2>$title</h2>\n";
- printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
+ printf "<p>Table data not found: <em>%s</em>.</p>\n", $@ || $!;
next;
}
$glyphs->print($title => [map {