W3C home > Mailing lists > Public > www-validator-cvs@w3.org > November 2011

link-checker commit: Avoid unnecessary grouping parenthesis.

From: Mercurial notifier <nobody@w3.org>
Date: Tue, 22 Nov 2011 22:01:54 +0000
Message-Id: <E1RSyPa-0005t8-Cz@mcbain.w3.org>
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

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:47 UTC