git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
common: prepare path request in global variable
[sheet.git]
/
charset.plp
diff --git
a/charset.plp
b/charset.plp
index 33156693d3f15c24a877b5645e86af041c5ebbe2..4c01b78d0b6bb45717d7f7e7e35bce8f55d81bf5 100644
(file)
--- a/
charset.plp
+++ b/
charset.plp
@@
-1,5
+1,4
@@
<(common.inc.plp)><:
<(common.inc.plp)><:
-use 5.014;
Html({
title => 'charset cheat sheet',
Html({
title => 'charset cheat sheet',
@@
-98,7
+97,7
@@
my @request = map {
();
}
} map { defined $ALIAS{$_} ? @{ $ALIAS{$_} } : $_ }
();
}
} map { defined $ALIAS{$_} ? @{ $ALIAS{$_} } : $_ }
- $
ENV{PATH_INFO} =~ /\w/ ? split(m{[/+\s]}, $ENV{PATH_INFO}
) : 'default';
+ $
Request =~ /\w/ ? split(m{[/+\s]}, $Request
) : 'default';
my $NOCHAR = chr 0xFFFD;
for my $cp437 (grep {$request[$_]->{set} eq 'cp437'} 0 .. $#request) {
my $NOCHAR = chr 0xFFFD;
for my $cp437 (grep {$request[$_]->{set} eq 'cp437'} 0 .. $#request) {
@@
-183,7
+182,7
@@
for my $row (@request) {
}
print "\n";
}
}
print "\n";
}
-
print "</table></div>\n"
;
+
say '</table></div>'
;
}
:>
}
:>