Diff from 1.38 and 1.40

changes.diff (text/plain), 1.88 KB, created by Torsten Veller (RETIRED) on 2009-10-10 07:59:35 UTC

diff -Naur URI-1.38/Changes URI-1.40/Changes
--- URI-1.38/Changes	2009-05-28 06:23:38.000000000 +0200
+++ URI-1.40/Changes	2009-08-14 21:41:10.000000000 +0200
@@ -1,3 +1,20 @@
[phone]   Gisle Aas <[e-mail]>
+
+   Release 1.40
+
+   Even stricter test for working DNS, 2nd try.
+
+
+
[phone]   Gisle Aas <[e-mail]>
+
+   Release 1.39
+
+   Even stricter test for working DNS, hopefully this gets rid of the rest of
+   the heuristics.t failures.
+
+
+
 2009-05-27   Gisle Aas <[e-mail]>
 
    Release 1.38
diff -Naur URI-1.38/META.yml URI-1.40/META.yml
--- URI-1.38/META.yml	2009-05-28 06:35:36.000000000 +0200
+++ URI-1.40/META.yml	2009-08-14 21:43:26.000000000 +0200
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               URI
-version:            1.38
+version:            1.40
 abstract:           Uniform Resource Identifiers (absolute and relative)
 author:
     - Gisle Aas <[e-mail]>
diff -Naur URI-1.38/URI.pm URI-1.40/URI.pm
--- URI-1.38/URI.pm	2009-05-28 06:20:53.000000000 +0200
+++ URI-1.40/URI.pm	2009-08-14 21:39:54.000000000 +0200
@@ -2,7 +2,7 @@
 
 use strict;
 use vars qw($VERSION);
-$VERSION = "1.38";
+$VERSION = "1.40";
 
 use vars qw($ABS_REMOTE_LEADING_DOTS $ABS_ALLOW_RELATIVE_SCHEME $DEFAULT_QUERY_FORM_DELIMITER);
 
diff -Naur URI-1.38/t/heuristic.t URI-1.40/t/heuristic.t
--- URI-1.38/t/heuristic.t	2009-05-28 06:20:53.000000000 +0200
+++ URI-1.40/t/heuristic.t	2009-08-14 21:39:19.000000000 +0200
@@ -41,8 +41,8 @@
 }
 print "ok 5\n";
 
-if (gethostbyname("www.netscape.com") && !gethostbyname("example.xyz")) {
-    # DNS probably work, lets run test 6..8
+if (gethostbyname("www.perl.com") && gethostbyname("www.perl.co.uk") && !gethostbyname("www.perl.bv")) {
+    # DNS work, lets run test 6..8
 
     $URI::Heuristic::MY_COUNTRY = "bv";
     print "not " unless uf_urlstr("perl/camel.gif") =~ m,^http://www\.perl\.(com|org)/camel\.gif$,;