202 |
if ($uri) { |
if ($uri) { |
203 |
$uri =~ s/\#[^#]*$//; ## Fragment identifier not allowed here |
$uri =~ s/\#[^#]*$//; ## Fragment identifier not allowed here |
204 |
$uri =~ s/\?[^?]*$// if $opt{no_query}; |
$uri =~ s/\?[^?]*$// if $opt{no_query}; |
205 |
|
$uri = $self->__uri_encode ($uri, qr([^\x00-\x7F])); |
206 |
if ($uri =~ /^[0-9A-Za-z.%+-]+:/) { ## REQUEST_URI is an absolute URI |
if ($uri =~ /^[0-9A-Za-z.%+-]+:/) { ## REQUEST_URI is an absolute URI |
207 |
return Message::DOM::DOMImplementation->create_uri_reference ($uri); |
return Message::DOM::DOMImplementation->create_uri_reference ($uri); |
208 |
} |
} |