silence extra test output for non-verbose runs

This commit is contained in:
Graham Knop 2009-11-17 13:31:56 -06:00
parent f3e699e9a7
commit 614a901231
2 changed files with 3 additions and 3 deletions

View file

@ -53,7 +53,7 @@ my $nonRootLink = qr{
sub checkLinks {
my ($tag, $attrs) = @_;
if ($tag eq 'link' && $attrs->{href}) {
diag sprintf '%s: %s', $tag, $attrs->{href};
note sprintf '%s: %s', $tag, $attrs->{href};
if ($attrs->{href} !~ $nonRootLink) {
$validLinks = 0;
}