r2298 - in packages/libnet-domain-tld-perl/trunk: . debian
gregor herrmann
gregoa-guest at costa.debian.org
Thu Mar 9 16:23:37 UTC 2006
Author: gregoa-guest
Date: 2006-03-09 16:23:36 +0000 (Thu, 09 Mar 2006)
New Revision: 2298
Added:
packages/libnet-domain-tld-perl/trunk/Changes
packages/libnet-domain-tld-perl/trunk/META.yml
packages/libnet-domain-tld-perl/trunk/lib/
packages/libnet-domain-tld-perl/trunk/t/
Removed:
packages/libnet-domain-tld-perl/trunk/TLD.pm
packages/libnet-domain-tld-perl/trunk/test.pl
Modified:
packages/libnet-domain-tld-perl/trunk/MANIFEST
packages/libnet-domain-tld-perl/trunk/Makefile.PL
packages/libnet-domain-tld-perl/trunk/README
packages/libnet-domain-tld-perl/trunk/debian/changelog
packages/libnet-domain-tld-perl/trunk/debian/compat
packages/libnet-domain-tld-perl/trunk/debian/control
Log:
* New upstream release (1.65)
* Added watch file.
* Bumped Standars-Version and Debhelper Compatibility level.
* Added /me to Uploaders.
Copied: packages/libnet-domain-tld-perl/trunk/Changes (from rev 2297, packages/libnet-domain-tld-perl/branches/upstream/current/Changes)
Modified: packages/libnet-domain-tld-perl/trunk/MANIFEST
===================================================================
--- packages/libnet-domain-tld-perl/trunk/MANIFEST 2006-03-09 16:19:25 UTC (rev 2297)
+++ packages/libnet-domain-tld-perl/trunk/MANIFEST 2006-03-09 16:23:36 UTC (rev 2298)
@@ -1,5 +1,8 @@
+Changes
+lib/Net/Domain/TLD.pm
+LICENSE
+Makefile.PL
MANIFEST
-Makefile.PL
+META.yml
README
-TLD.pm
-test.pl
+t/01_ini.t
Copied: packages/libnet-domain-tld-perl/trunk/META.yml (from rev 2297, packages/libnet-domain-tld-perl/branches/upstream/current/META.yml)
Modified: packages/libnet-domain-tld-perl/trunk/Makefile.PL
===================================================================
--- packages/libnet-domain-tld-perl/trunk/Makefile.PL 2006-03-09 16:19:25 UTC (rev 2297)
+++ packages/libnet-domain-tld-perl/trunk/Makefile.PL 2006-03-09 16:23:36 UTC (rev 2298)
@@ -1,11 +1,13 @@
use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
-push(@extras,
- AUTHOR => 'Alexander Pavlovic <alex-1 at telus.net>'
- ) if ($ExtUtils::MakeMaker::Version >= 5.4301);
WriteMakefile(
- NAME => 'Net::Domain::TLD',
- VERSION_FROM => 'TLD.pm', # finds $VERSION
- PREREQ_PM => {Memoize => 0}, # e.g., Module::Name => 1.1
+ NAME => 'Net::Domain::TLD',
+ VERSION_FROM => 'lib/Net/Domain/TLD.pm', # finds $VERSION
+ AUTHOR => 'Alex Pavlovic (alex.pavlovic at taskforce-1.com)',
+ ABSTRACT => 'Net::Domain::TLD - Work with TLD names',
+ PREREQ_PM => {
+ 'Carp' => '0',
+ 'Storable' => '0'
+ }
);
Modified: packages/libnet-domain-tld-perl/trunk/README
===================================================================
--- packages/libnet-domain-tld-perl/trunk/README 2006-03-09 16:19:25 UTC (rev 2297)
+++ packages/libnet-domain-tld-perl/trunk/README 2006-03-09 16:23:36 UTC (rev 2298)
@@ -1,61 +1,59 @@
-NAME
- Net::Domain::TLD - Gives ability to retrieve currently available tld
- names/descriptions and perform verification of given tld name
+Net::Domain::TLD(3) User Contributed Perl Documentation Net::Domain::TLD(3)
-SYNOPSIS
- use Net::Domain::TLD;
- my $domain_list = Net::Domain::TLD->new;
- my @ccTLDs = $domain_list->ccTLDs;
-DESCRIPTION
- The purpose of this module is to provide user with current list of
- available top level domain names including new ICANN additions and
- ccTLDs
-INSTALL
- perl Makefile.PL
- make
- make test
- make install
+NNAAMMEE
+ Net::Domain::TLD - Work with TLD names
-PUBLIC INTERFACES
- new Creates new Net::Domain::TLD instance
+SSYYNNOOPPSSIISS
+ use Net::Domain::TLD qw(tlds tld_exists);
+ my @ccTLDs = tlds('cc');
+ print "TLD ok\n" if tld_exists('ac');
- my $tld = Net::Domain::TLD->new;
+DDEESSCCRRIIPPTTIIOONN
+ The purpose of this module is to provide user with current list of
+ available top level domain names including new ICANN additions and ccTLDs
+ Currently TLD definitions have been acquired from the following sources:
- All
- my @list = $tld->All;
+ http://www.icann.org/tlds/
+ http://www.dnso.org/constituency/gtld/gtld.html
+ http://www.iana.org/cctld/cctld-whois.htm
- returns list or hash ref of all TLDs names/descriptions
+PPUUBBLLIICC MMEETTHHOODDSS
+ Each public function/method is described here.
+ These are how you should interact with this module.
- TLDs_new
- my @list = $tld->TLDs_new;
+ _"_t_l_d_s_"
- returns list or hash ref of new TLD names/descriptions
+ my @all_tlds = tlds; #array of tlds
+ my $all_tlds = tlds; #hashref of tlds and their descriptions
- gTLDs_open
- my $names = $tld->gTLDs_open;
+ my @cc_tlds = tlds('cc'); #array of just 'cc' type tlds
+ my $cc_tlds = tlds('cc'); #hashref of just 'cc' type tlds and their descriptions
- returns a list or hash ref of generic TLD names/descriptions
- available to general public
+ Valid types are:
+ cc - country code domains
+ gtld_open - generic domains that anyone can register
+ gtld_restricted - generic restricted registration domains
+ new_open - recently added generic domains
+ new_restricted - new restricted registration domains
- gTLDs_restricted
- my @list = $tld->gTLDs_restricted;
+ _"_t_l_d___e_x_i_s_t_s_"
- returns a list or hash ref of generic TLD names/descriptions
- restricted for assignment to specific users
+ die "no such domain" unless tld_exists($tld);
+ die "no such domain" unless tld_exists($tld, 'cc');
- ccTLDs
- my $names = $tld->ccTLDs;
+ This routine returns true if the given domain exists and false if it does not.
- returns a list or hash ref of country code TLD names/descriptions
+CCOOPPYYRRIIGGHHTT
+ Copyright (c) 2003-2005 Alex Pavlovic, all rights reserved. This program
+ is free software; you can redistribute it and/or modify it under the same terms
+ as Perl itself.
- exists
- determines if given tld exists, returns 1 if tld is valid and 0 if
- not
+AAUUTTHHOORRSS
+ Alexander Pavlovic C<< <alex.pavlovic at taskforce-1.com> >>
+ Ricardo SIGNES C<< <rjbs at cpan.org> >>
- $tld->exists(q{info}) ? print q{ok} : print q{not ok};
-AUTHOR
- Alexander Pavlovic <alex-1 at telus.net>
+perl v5.8.7 2006-01-25 Net::Domain::TLD(3)
Deleted: packages/libnet-domain-tld-perl/trunk/TLD.pm
===================================================================
--- packages/libnet-domain-tld-perl/trunk/TLD.pm 2006-03-09 16:19:25 UTC (rev 2297)
+++ packages/libnet-domain-tld-perl/trunk/TLD.pm 2006-03-09 16:23:36 UTC (rev 2298)
@@ -1,421 +0,0 @@
-package Net::Domain::TLD;
-
-=head1 NAME
-
-Net::Domain::TLD - Gives ability to retrieve currently available tld
-names/descriptions and perform verification of given tld name
-
-=head1 SYNOPSIS
-
- use Net::Domain::TLD;
- my $domain_list = Net::Domain::TLD->new;
- my @ccTLDs = $domain_list->ccTLDs;
-
-=head1 DESCRIPTION
-
-The purpose of this module is to provide user
-with current list of available top level domain names
-including new ICANN additions and ccTLDs
-
-=head1 COPYRIGHT
-
-Copyright (c) 2003 Alexander Pavlovic. All rights reserved. This program is
-free software; you can redistribute it and/or modify it under the same
-terms as Perl itself.
-
-=cut
-
-use strict;
-use warnings;
-use Memoize;
-
-use constant NEW_TLDS => '_newTLDs';
-use constant GENERIC_TLDS_OPEN => '_gTLDs_open';
-use constant GENERIC_TLDS_RESTRICTED => '_gTLDs_restricted';
-use constant CC_TLDS => '_ccTLDs';
-
-sub BEGIN {
- our ($VERSION) = '$Revision: 1.5 $' =~ /Revision: ([\d.]+)/;
-}
-
-use constant TLD_PROFILE => {
- #fetched from http://www.icann.org/tlds/
- &NEW_TLDS => {
- q{aero} => q{Air-transport industry},
- q{biz} => q{Businesses},
- q{coop} => q{Cooperatives},
- q{info} => q{Unrestricted use},
- q{museum} => q{Museums},
- q{name} => q{For registration by individuals},
- q{pro} => q{Accountants, lawyers, and physicians},
- },
- #fetched from http://www.dnso.org/constituency/gtld/gtld.html
- #specific defininitions from http://whatis.techtarget.com
- &GENERIC_TLDS_OPEN => {
- q{com} => q{Commercial organization},
- q{net} => q{Network connection services provider},
- q{org} => q{Non-profit organizations and industry standard groups}
- },
- &GENERIC_TLDS_RESTRICTED => {
- q{gov} => q{United States Government},
- q{mil} => q{United States Military},
- q{edu} => q{Educational institution},
- q{int} => q{International treaties/databases}
- },
- #fetched from http://www.iana.org/cctld/cctld-whois.htm
- &CC_TLDS => {
- q{ac} => q{Ascension Island},
- q{ad} => q{Andorra},
- q{ae} => q{United Arab Emirates},
- q{af} => q{Afghanistan},
- q{ag} => q{Antigua and Barbuda},
- q{ai} => q{Anguilla},
- q{al} => q{Albania},
- q{am} => q{Armenia},
- q{an} => q{Netherlands Antilles},
- q{ao} => q{Angola},
- q{aq} => q{Antartica},
- q{ar} => q{Argentina},
- q{as} => q{American Samoa},
- q{at} => q{Austria},
- q{au} => q{Australia},
- q{aw} => q{Aruba},
- q{az} => q{Azerbaijan},
- q{ba} => q{Bosnia and Herzegovina},
- q{bb} => q{Barbados},
- q{bd} => q{Bangladesh},
- q{be} => q{Belgium},
- q{bf} => q{Burkina Faso},
- q{bg} => q{Bulgaria},
- q{bh} => q{Bahrain},
- q{bi} => q{Burundi},
- q{bj} => q{Benin},
- q{bm} => q{Bermuda},
- q{bn} => q{Brunei Darussalam},
- q{bo} => q{Bolivia},
- q{br} => q{Brazil},
- q{bs} => q{Bahamas},
- q{bt} => q{Bhutan},
- q{bv} => q{Bouvet Island},
- q{bw} => q{Botswana},
- q{by} => q{Belarus},
- q{bz} => q{Belize},
- q{ca} => q{Canada},
- q{cc} => q{Cocos (Keeling) Islands},
- q{cd} => q{Congo, Democratic Republic of the},
- q{cf} => q{Central African Republic},
- q{cg} => q{Congo, Republic of},
- q{ch} => q{Switzerland},
- q{ci} => q{Cote d'Ivoire},
- q{ck} => q{Cook Islands},
- q{cl} => q{Chile},
- q{cm} => q{Cameroon},
- q{cn} => q{China},
- q{co} => q{Colombia},
- q{cr} => q{Costa Rica},
- q{cu} => q{Cuba},
- q{cv} => q{Cap Verde},
- q{cx} => q{Christmas Island},
- q{cy} => q{Cyprus},
- q{cz} => q{Czech Republic},
- q{de} => q{Germany},
- q{dj} => q{Djibouti},
- q{dk} => q{Denmark},
- q{dm} => q{Dominica},
- q{do} => q{Dominican Republic},
- q{dz} => q{Algeria},
- q{ec} => q{Ecuador},
- q{ee} => q{Estonia},
- q{eg} => q{Egypt},
- q{eh} => q{Western Sahara},
- q{er} => q{Eritrea},
- q{es} => q{Spain},
- q{et} => q{Ethiopia},
- q{fi} => q{Finland},
- q{fj} => q{Fiji},
- q{fk} => q{Falkland Islands (Malvina)},
- q{fm} => q{Micronesia, Federal State of},
- q{fo} => q{Faroe Islands},
- q{fr} => q{France},
- q{ga} => q{Gabon},
- q{gd} => q{Grenada},
- q{ge} => q{Georgia},
- q{gf} => q{French Guiana},
- q{gg} => q{Guernsey},
- q{gh} => q{Ghana},
- q{gi} => q{Gibraltar},
- q{gl} => q{Greenland},
- q{gm} => q{Gambia},
- q{gn} => q{Guinea},
- q{gp} => q{Guadeloupe},
- q{gq} => q{Equatorial Guinea},
- q{gr} => q{Greece},
- q{gs} => q{South Georgia and the South Sandwich Islands},
- q{gt} => q{Guatemala},
- q{gu} => q{Guam},
- q{gw} => q{Guinea-Bissau},
- q{gy} => q{Guyana},
- q{hk} => q{Hong Kong},
- q{hm} => q{Heard and McDonald Islands},
- q{hn} => q{Honduras},
- q{hr} => q{Croatia/Hrvatska},
- q{ht} => q{Haiti},
- q{hu} => q{Hungary},
- q{id} => q{Indonesia},
- q{ie} => q{Ireland},
- q{il} => q{Israel},
- q{im} => q{Isle of Man},
- q{in} => q{India},
- q{io} => q{British Indian Ocean Territory},
- q{iq} => q{Iraq},
- q{ir} => q{Iran (Islamic Republic of)},
- q{is} => q{Iceland},
- q{it} => q{Italy},
- q{je} => q{Jersey},
- q{jm} => q{Jamaica},
- q{jo} => q{Jordan},
- q{jp} => q{Japan},
- q{ke} => q{Kenya},
- q{kg} => q{Kyrgyzstan},
- q{kh} => q{Cambodia},
- q{ki} => q{Kiribati},
- q{km} => q{Comoros},
- q{kn} => q{Saint Kitts and Nevis},
- q{kp} => q{Korea, Democratic People's Republic},
- q{kr} => q{Korea, Republic of},
- q{kw} => q{Kuwait},
- q{ky} => q{Cayman Islands},
- q{kz} => q{Kazakhstan},
- q{la} => q{Lao People's Democratic Republic},
- q{lb} => q{Lebanon},
- q{lc} => q{Saint Lucia},
- q{li} => q{Liechtenstein},
- q{lk} => q{Sri Lanka},
- q{lr} => q{Liberia},
- q{ls} => q{Lesotho},
- q{lt} => q{Lithuania},
- q{lu} => q{Luxembourg},
- q{lv} => q{Latvia},
- q{ly} => q{Libyan Arab Jamahiriya},
- q{ma} => q{Morocco},
- q{mc} => q{Monaco},
- q{md} => q{Moldova, Republic of},
- q{mg} => q{Madagascar},
- q{mh} => q{Marshall Islands},
- q{mk} => q{Macedonia, Former Yugoslav Republic},
- q{ml} => q{Mali},
- q{mm} => q{Myanmar},
- q{mn} => q{Mongolia},
- q{mo} => q{Macau},
- q{mp} => q{Northern Mariana Islands},
- q{mq} => q{Martinique},
- q{mr} => q{Mauritania},
- q{ms} => q{Montserrat},
- q{mt} => q{Malta},
- q{mu} => q{Mauritius},
- q{mv} => q{Maldives},
- q{mw} => q{Malawi},
- q{mx} => q{Mexico},
- q{my} => q{Malaysia},
- q{mz} => q{Mozambique},
- q{na} => q{Namibia},
- q{nc} => q{New Caledonia},
- q{ne} => q{Niger},
- q{nf} => q{Norfolk Island},
- q{ng} => q{Nigeria},
- q{ni} => q{Nicaragua},
- q{nl} => q{Netherlands},
- q{no} => q{Norway},
- q{np} => q{Nepal},
- q{nr} => q{Nauru},
- q{nu} => q{Niue},
- q{nz} => q{New Zealand},
- q{om} => q{Oman},
- q{pa} => q{Panama},
- q{pe} => q{Peru},
- q{pf} => q{French Polynesia},
- q{pg} => q{Papua New Guinea},
- q{ph} => q{Philippines},
- q{pk} => q{Pakistan},
- q{pl} => q{Poland},
- q{pm} => q{St. Pierre and Miquelon},
- q{pn} => q{Pitcairn Island},
- q{pr} => q{Puerto Rico},
- q{ps} => q{Palestinian Territories},
- q{pt} => q{Portugal},
- q{pw} => q{Palau},
- q{py} => q{Paraguay},
- q{qa} => q{Qatar},
- q{re} => q{Reunion Island},
- q{ro} => q{Romania},
- q{ru} => q{Russian Federation},
- q{rw} => q{Rwanda},
- q{sa} => q{Saudi Arabia},
- q{sb} => q{Solomon Islands},
- q{sc} => q{Seychelles},
- q{sd} => q{Sudan},
- q{se} => q{Sweden},
- q{sg} => q{Singapore},
- q{sh} => q{St. Helena},
- q{si} => q{Slovenia},
- q{sj} => q{Svalbard and Jan Mayen Islands},
- q{sk} => q{Slovak Republic},
- q{sl} => q{Sierra Leone},
- q{sm} => q{San Marino},
- q{sn} => q{Senegal},
- q{so} => q{Somalia},
- q{sr} => q{Suriname},
- q{st} => q{Sao Tome and Principe},
- q{sv} => q{El Salvador},
- q{sy} => q{Syrian Arab Republic},
- q{sz} => q{Swaziland},
- q{tc} => q{Turks and Caicos Islands},
- q{td} => q{Chad},
- q{tf} => q{French Southern Territories},
- q{tg} => q{Togo},
- q{th} => q{Thailand},
- q{tj} => q{Tajikistan},
- q{tk} => q{Tokelau},
- q{tm} => q{Turkmenistan},
- q{tn} => q{Tunisia},
- q{to} => q{Tonga},
- q{tp} => q{East Timor},
- q{tr} => q{Turkey},
- q{tt} => q{Trinidad and Tobago},
- q{tv} => q{Tuvalu},
- q{tw} => q{Taiwan},
- q{tz} => q{Tanzania},
- q{ua} => q{Ukraine},
- q{ug} => q{Uganda},
- q{uk} => q{United Kingdom},
- q{um} => q{US Minor Outlying Islands},
- q{us} => q{United States},
- q{uy} => q{Uruguay},
- q{uz} => q{Uzbekistan},
- q{va} => q{Holy See (City Vatican State)},
- q{vc} => q{Saint Vincent and the Grenadines},
- q{ve} => q{Venezuela},
- q{vg} => q{Virgin Islands (British)},
- q{vi} => q{Virgin Islands (USA)},
- q{vn} => q{Vietnam},
- q{vu} => q{Vanuatu},
- q{wf} => q{Wallis and Futuna Islands},
- q{ws} => q{Western Samoa},
- q{ye} => q{Yemen},
- q{yt} => q{Mayotte},
- q{yu} => q{Yugoslavia},
- q{za} => q{South Africa},
- q{zm} => q{Zambia},
- q{zw} => q{Zimbabwe}
- }
-};
-
-=head1 PUBLIC INTERFACES
-
-=over 4
-
-=item new
-
-Creates new Net::Domain::TLD instance
-
-my $tld = Net::Domain::TLD->new;
-
-=cut
-
-sub new {
- for ( qw ( All TLDs_new gTLDs_open gTLDs_restricted ccTLDs exists ) ) {
- memoize $_;
- }
- return bless {}, shift;
-}
-
-=item All
-
- my @list = $tld->All;
-
-returns list or hash ref of all TLDs names/descriptions
-
-=cut
-
-sub All {
- my %list;
- for ( NEW_TLDS, GENERIC_TLDS_OPEN, GENERIC_TLDS_RESTRICTED, CC_TLDS ) {
- @list{keys %{TLD_PROFILE->{$_}}} = values %{TLD_PROFILE->{$_}};
- }
- return wantarray ? keys %list : \%list;
-}
-
-=item TLDs_new
-
- my @list = $tld->TLDs_new;
-
-returns list or hash ref of new TLD names/descriptions
-
-=cut
-
-sub TLDs_new {
- wantarray ? keys % { TLD_PROFILE->{&NEW_TLDS} } : TLD_PROFILE->{&NEW_TLDS};
-}
-
-=item gTLDs_open
-
- my $names = $tld->gTLDs_open;
-
-returns a list or hash ref of generic TLD names/descriptions available to general public
-
-=cut
-
-sub gTLDs_open {
- wantarray ? keys % { TLD_PROFILE->{&GENERIC_TLDS_OPEN} } : TLD_PROFILE->{&GENERIC_TLDS_OPEN};
-}
-
-=item gTLDs_restricted
-
- my @list = $tld->gTLDs_restricted;
-
-returns a list or hash ref of generic TLD names/descriptions restricted for assignment to specific users
-
-=cut
-
-sub gTLDs_restricted {
- wantarray ? keys % { TLD_PROFILE->{&GENERIC_TLDS_RESTRICTED} } : TLD_PROFILE->{&GENERIC_TLDS_RESTRICTED};
-}
-
-=item ccTLDs
-
- my $names = $tld->ccTLDs;
-
-returns a list or hash ref of country code TLD names/descriptions
-
-=cut
-
-sub ccTLDs {
- my $self = shift;
- wantarray ? keys % { TLD_PROFILE->{&CC_TLDS} } : TLD_PROFILE->{&CC_TLDS};
-}
-
-=item exists
-
-determines if given tld exists, returns 1 if tld is valid and 0 if not
-
- $tld->exists(q{info}) ? print q{ok} : print q{not ok};
-
-=cut
-
-sub exists {
- my ( $self, $tld ) = @_;
- $tld = lc $tld;
- $tld =~ s/\s+//g;
- my $list = $self->All;
- return exists $list->{$tld};
-}
-
-1;
-
-=back
-
-=head1 AUTHOR
-
-Alexander Pavlovic <alex-1 at telus.net>
-
-=cut
Modified: packages/libnet-domain-tld-perl/trunk/debian/changelog
===================================================================
--- packages/libnet-domain-tld-perl/trunk/debian/changelog 2006-03-09 16:19:25 UTC (rev 2297)
+++ packages/libnet-domain-tld-perl/trunk/debian/changelog 2006-03-09 16:23:36 UTC (rev 2298)
@@ -1,3 +1,12 @@
+libnet-domain-tld-perl (1.65-1) unstable; urgency=low
+
+ * New upstream release.
+ * Added watch file.
+ * Bumped Standars-Version and Debhelper Compatibility level.
+ * Added /me to Uploaders.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Thu, 9 Mar 2006 17:20:15 +0100
+
libnet-domain-tld-perl (1.5-1) unstable; urgency=low
* Initial Release.
Modified: packages/libnet-domain-tld-perl/trunk/debian/compat
===================================================================
--- packages/libnet-domain-tld-perl/trunk/debian/compat 2006-03-09 16:19:25 UTC (rev 2297)
+++ packages/libnet-domain-tld-perl/trunk/debian/compat 2006-03-09 16:23:36 UTC (rev 2298)
@@ -1 +1 @@
-4
+5
Modified: packages/libnet-domain-tld-perl/trunk/debian/control
===================================================================
--- packages/libnet-domain-tld-perl/trunk/debian/control 2006-03-09 16:19:25 UTC (rev 2297)
+++ packages/libnet-domain-tld-perl/trunk/debian/control 2006-03-09 16:23:36 UTC (rev 2298)
@@ -1,11 +1,11 @@
Source: libnet-domain-tld-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 4.0.2)
+Build-Depends: debhelper (>= 5.0.0)
Build-Depends-Indep: perl (>= 5.8.0-7)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Marc Brockschmidt <marc at dch-faq.de>, Joachim Breitner <nomeata at debian.org>
-Standards-Version: 3.6.1
+Uploaders: Marc Brockschmidt <marc at dch-faq.de>, Joachim Breitner <nomeata at debian.org>, gregor herrmann <gregor+debian at comodo.priv.at>
+Standards-Version: 3.6.2
Package: libnet-domain-tld-perl
Architecture: all
Copied: packages/libnet-domain-tld-perl/trunk/lib (from rev 2297, packages/libnet-domain-tld-perl/branches/upstream/current/lib)
Copied: packages/libnet-domain-tld-perl/trunk/t (from rev 2297, packages/libnet-domain-tld-perl/branches/upstream/current/t)
Deleted: packages/libnet-domain-tld-perl/trunk/test.pl
===================================================================
--- packages/libnet-domain-tld-perl/trunk/test.pl 2006-03-09 16:19:25 UTC (rev 2297)
+++ packages/libnet-domain-tld-perl/trunk/test.pl 2006-03-09 16:23:36 UTC (rev 2298)
@@ -1,22 +0,0 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl test.pl'
-
-######################### We start with some black magic to print on failure.
-
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-
-BEGIN { $| = 1; print "1..1\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use Net::Domain::TLD;
-$loaded = 1;
-print "ok 1\n";
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
-
-my $tld = Net::Domain::TLD->new;
-print qq{ok 2\n} if $tld->exists ( q{edu} );
More information about the Pkg-perl-cvs-commits
mailing list