W3C home > Mailing lists > Public > www-validator-cvs@w3.org > February 2010

perl/modules/W3C/LinkChecker/bin checklink,4.184,4.185

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Sun, 28 Feb 2010 21:13:25 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1NlqS5-0000cX-6A@lionel-hutz.w3.org>
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv2350/bin

Modified Files:
	checklink 
Log Message:
Run perltidy, update indentation settings.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.184
retrieving revision 4.185
diff -u -d -r4.184 -r4.185
--- checklink	28 Feb 2010 19:23:11 -0000	4.184
+++ checklink	28 Feb 2010 21:13:23 -0000	4.185
@@ -34,137 +34,144 @@
 # http://www.mail-archive.com/cpan-testers-discuss%40perl.org/msg01064.html
 use Config qw(%Config);
 use lib map { /(.*)/ }
-  defined($ENV{PERL5LIB}) ? split(/$Config{path_sep}/, $ENV{PERL5LIB}) :
-  defined($ENV{PERLLIB})  ? split(/$Config{path_sep}/, $ENV{PERLLIB})  : ();
+    defined($ENV{PERL5LIB}) ? split(/$Config{path_sep}/, $ENV{PERL5LIB}) :
+    defined($ENV{PERLLIB})  ? split(/$Config{path_sep}/, $ENV{PERLLIB}) :
+                              ();
 
 # -----------------------------------------------------------------------------
 
[...4721 lines suppressed...]
-  }
+    if (defined($doc_header)) {
+        print $doc_header;
+        undef($doc_header);
+    }
 }
 
-
 # Local Variables:
 # mode: perl
 # indent-tabs-mode: nil
-# tab-width: 2
-# perl-indent-level: 2
+# cperl-indent-level: 4
+# cperl-continued-statement-offset: 4
+# cperl-brace-offset: -4
+# perl-indent-level: 4
 # End:
-# ex: ts=2 sw=2 et
+# ex: ts=4 sw=4 et
Received on Sunday, 28 February 2010 21:13:26 UTC

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