I got an odd error in a regex substitution. Here's the code, with the suspicious statement in red, and the error that I got is below.

I've worked around the problem by wrapping the regex in an eval, but this worries me, especially since it is intermittent.

Any ideas?

Thanks, Ian

=============== code ==================

sub escape {
    shift() if ref($_[0]);

    my $toencode = shift;
    return undef unless defined($toencode);
    $toencode=~s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg
+;
    return $toencode;
}

=============== error ================

Substitution loop at /&lt;...&gt;/dbc.pm line 248, <> line 60981.
[download]