Skip site navigation (1)Skip section navigation (2)
Date:      Sun, 22 May 2011 09:48:25 +0000 (UTC)
From:      Ulrich Spoerlein <uqs@FreeBSD.org>
To:        src-committers@freebsd.org, svn-src-all@freebsd.org, svn-src-head@freebsd.org
Subject:   svn commit: r222171 - head/tools/tools/iso
Message-ID:  <201105220948.p4M9mP2m068191@svn.freebsd.org>

next in thread | raw e-mail | index | archive | help
Author: uqs
Date: Sun May 22 09:48:25 2011
New Revision: 222171
URL: http://svn.freebsd.org/changeset/base/222171

Log:
  Update URLs and fix regex to work with current version of the files.

Modified:
  head/tools/tools/iso/check-iso3166.pl

Modified: head/tools/tools/iso/check-iso3166.pl
==============================================================================
--- head/tools/tools/iso/check-iso3166.pl	Sun May 22 03:18:25 2011	(r222170)
+++ head/tools/tools/iso/check-iso3166.pl	Sun May 22 09:48:25 2011	(r222171)
@@ -4,8 +4,8 @@
 # $FreeBSD$
 #
 # This script compares the file iso3166 (from head/share/misc) with the files
-# list-en1-semic-2.txt (from
-# http://www.iso.org/iso/list-en1-semic-2.txt) and iso3166-countrycodes.txt
+# list-en1-semic-3.txt (from
+# http://www.iso.org/iso/list-en1-semic-3.txt) and iso3166-countrycodes.txt
 # (from ftp://ftp.ripe.net/) to see if there any differences.
 #
 # Created by Edwin Groothuis <edwin@FreeBSD.org> for the FreeBSD project.
@@ -41,7 +41,7 @@ my %old = ();
 
 my %new1 = ();
 {
-	open(FIN, "iso3166-countrycodes.txt") or die "Cannot open iso3166-countrycodes.txt, which can be retrieved from ftp://ftp.ripe.net/";
+	open(FIN, "iso3166-countrycodes.txt") or die "Cannot open iso3166-countrycodes.txt, which can be retrieved from ftp://ftp.ripe.net/iso3166-countrycodes.txt";
 	my @lines = <FIN>;
 	close(FIN);
 	chomp(@lines);
@@ -56,7 +56,7 @@ my %new1 = ();
 		next if ($l eq "");
 
 		die "Invalid line: $l\n"
-			if ($l !~ /^(.+?)[\t ][\t ]+([A-Z]{2})[\t ]+([A-Z]{3})[\t ]+(\d+)[\t ]*$/);
+			if ($l !~ /^(.+?)[\t ]+([A-Z]{2})[\t ]+([A-Z]{3})[\t ]+(\d+)[\t ]*$/);
 		my $two = $2;
 		my $three = $3;
 		my $number = $4;
@@ -71,7 +71,7 @@ my %new1 = ();
 
 my %new2 = ();
 {
-	open(FIN, "list-en1-semic-2.txt") or die "Cannot open list-en1-semic-2.txt, which can be retrieved from http://www.iso.org/iso/list-en1-semic-2.txt";
+	open(FIN, "list-en1-semic-3.txt") or die "Cannot open list-en1-semic-3.txt, which can be retrieved from http://www.iso.org/iso/list-en1-semic-3.txt";
 	my @lines = <FIN>;
 	close(FIN);
 	chomp(@lines);



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201105220948.p4M9mP2m068191>