- From: Mercurial notifier <nobody@w3.org>
- Date: Tue, 22 Nov 2011 22:01:54 +0000
- To: link-checker updates <www-validator-cvs@w3.org>
changeset: 411:7dce3627a4c7
user: Ville Skyttä <ville.skytta@iki.fi>
date: Tue Nov 22 23:59:16 2011 +0200
files: bin/checklink
description:
Avoid unnecessary grouping parenthesis.
diff -r a2f2aa03ddd3 -r 7dce3627a4c7 bin/checklink
--- a/bin/checklink Fri Oct 21 00:16:41 2011 +0300
+++ b/bin/checklink Tue Nov 22 23:59:16 2011 +0200
@@ -814,7 +814,7 @@
for my $i (0 .. $#{$Opts{Suppress_Broken}}) {
${$Opts{Suppress_Broken}}[$i] =~ s/ /:/;
my $sb_arg = ${$Opts{Suppress_Broken}}[$i];
- if ($sb_arg !~ /^(-1|[0-9]+):./) {
+ if ($sb_arg !~ /^(?:-1|[0-9]+):./) {
&usage(1,
"Bad suppress-broken argument, should be prefixed by a numeric response code: $sb_arg"
);
@@ -1580,7 +1580,7 @@
for my $base (@{$Opts{Base_Locations}}) {
my $rel = $candidate->rel($base);
next if ($candidate eq $rel); # Relative path not possible?
- next if ($rel =~ m|^(\.\.)?/|); # Relative path upwards?
+ next if ($rel =~ m|^(?:\.\.)?/|); # Relative path upwards?
return 1;
}
Received on Tuesday, 22 November 2011 22:01:57 UTC