tn3270 support is back.

Changes

@@ -5,6 +5,8 @@
    Use anchored DNS lookups in URI::Heuristic as suggested
    by Malcolm Weir <malc@gelt.org>.
 
+   Support for tn3270 URIs.
+
 
 
 2002-09-02   Gisle Aas <gisle@ActiveState.com>

MANIFEST

@@ -42,6 +42,7 @@ URI/sips.pm
 URI/snews.pm
 URI/ssh.pm
 URI/telnet.pm
+URI/tn3270.pm
 URI/urn.pm
 URI/urn/isbn.pm
 URI/urn/oid.pm

URI.pm

@@ -1,4 +1,4 @@
-package URI;  # $Date: 2003/01/01 17:07:18 $
+package URI;  # $Date: 2003/01/02 05:11:26 $
 
 use strict;
 use vars qw($VERSION);
@@ -756,6 +756,12 @@ An old speficication of the I<telnet> URI scheme is found in RFC
 1738. C<URI> objects belonging to the telnet scheme support the
 common, generic and server methods.
 
+=item B<tn3270>:
+
+There URIs are used like I<telnet> URIs but for connections to IBM
+mainframes.  C<URI> objects belonging to the tn3270 scheme support the
+common, generic and server methods.
+
 =item B<ssh>:
 
 Information about ssh is available at http://www.openssh.com/.

URI/tn3270.pm

@@ -0,0 +1,7 @@
+package URI::tn3270;
+require URI::_login;
+@ISA = qw(URI::_login);
+
+sub default_port { 23 }
+
+1;