Allow relative links starting with '..'

This commit is contained in:
Ben Edgington
2023-04-17 11:41:45 +01:00
parent 264e9cfbe1
commit 00e430639f

View File

@@ -117,7 +117,7 @@ while(<$fh>) {
print "Link to localhost, line $."
} elsif ($link =~ /^http:/) {
print "HTTP link, line $.";
} elsif (not $link =~ /^https:\/\//) {
} elsif (not $link =~ /^https:\/\// and not $link =~ /\.\.\//) {
print "Suspicious link, line $.: $link";
}
}