sub HTML::Element::namedlink {
my ($self, $id, $name) = @_;
- $name = $id unless $name =~ /[[:graph:]]/;
+ $name = $id unless $name && $name =~ /[[:graph:]]/;
$self = $self->find('a');
$self->edit_href(sub {s/id/$id/});
$self->replace_content($name);