'Pragma', 'no-cache',
'Cache-Control', 'no-cache, max-age=0, must-revalidate');
-my $nextq;
-sub do_next () {
- my $q = $nextq;
- $nextq = undef;
- while (my $cb = shift @$q) {
- $cb->(); # this may redefine nextq
- }
-}
-
sub r ($;$) {
my ($code, $msg) = @_;
$msg ||= status_message($code);