A pure Perl version of Apache::Request? If Apache::Request is well-written, why bother with the Pure Perl version? Aside from making it easier for poor schleps to modify it, that is? :)

I was looking in apache_request.c and noticed this, though:

static int urlword_dlm[] = {'&', ';', 0};

static char *my_urlword(pool *p, const char **line)
{
    char *res = NULL;
    const char *pos = *line;
    char ch;

    while ( (ch = *pos) != '\0' && ch != ';' && ch != '&') {
        ++pos;
    }
    res = ap_pstrndup(p, *line, pos - *line);

    while (ch == ';' || ch == '&') {
        ++pos;
        ch = *pos;
    }
    *line = pos;
    return res;
}
[download]

The urlword_dlm array doesn't appear to be used anywhere else. From what I can tell, this was originally used to hold the delimiters and line endings, but when the code was last updated, the array declaration was left in, but the array itself appears to have been removed:

static int urlword_dlm[] = {'&', ';', NULL};

static char *my_urlword(pool *p, const char **line)
{
  int i;
  for (i = 0; urlword_dlm[i]; i++) {
    int stop = urlword_dlm[i];
    char *pos = strchr(*line, stop);
    char *res;

    if (!pos) {
      if (!urlword_dlm[i+1]) {
        // etc ...
[download]

That could simply be my poor C skills, but it looks like there might be some room for cruft to be removed (of course, this was the only instance I found, so I'm probably wrong), so I wonder if there is room for improvement here. In any event, since Apache::Request can be used from both C and Perl, I don't think that creating a Perl alternative gets us a strong benefit. I'm open to counter arguments, though.

And I'd just like to note that my little digression there was soooo far removed from your question that my li'l node is barely a response :)

Cheers,
Ovid

New address of my CGI Course.
Silence is Evil (feel free to copy and distribute widely - note copyright text)