Front page | perl.perl5.changes |
Postings from August 2009
[perl.git] branch blead, updated. GitLive-blead-2012-ga79d563
From:
Nicholas Clark
Date:
August 30, 2009 11:23
Subject:
[perl.git] branch blead, updated. GitLive-blead-2012-ga79d563
Message ID:
E1Mhp3v-0002tn-Gn@camel.booking.com
In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/a79d563c5b1e534968f5274b3cc36fa26e10ba16?hp=85831461cd8850ede28b33bf03b6fe7a7904e0dc>
- Log -----------------------------------------------------------------
commit a79d563c5b1e534968f5274b3cc36fa26e10ba16
Author: Nicholas Clark <nick@ccl4.org>
Date: Sun Aug 30 19:21:53 2009 +0100
Move Net::Ping from lib to ext
M MANIFEST
M Porting/Maintainers.pl
M ext/.gitignore
A ext/Net-Ping/Changes
A ext/Net-Ping/lib/Net/Ping.pm
A ext/Net-Ping/t/100_load.t
A ext/Net-Ping/t/110_icmp_inst.t
A ext/Net-Ping/t/120_udp_inst.t
A ext/Net-Ping/t/130_tcp_inst.t
A ext/Net-Ping/t/140_stream_inst.t
A ext/Net-Ping/t/150_syn_inst.t
A ext/Net-Ping/t/190_alarm.t
A ext/Net-Ping/t/200_ping_tcp.t
A ext/Net-Ping/t/250_ping_hires.t
A ext/Net-Ping/t/300_ping_stream.t
A ext/Net-Ping/t/400_ping_syn.t
A ext/Net-Ping/t/410_syn_host.t
A ext/Net-Ping/t/450_service.t
A ext/Net-Ping/t/500_ping_icmp.t
A ext/Net-Ping/t/510_ping_udp.t
M lib/.gitignore
D lib/Net/Ping.pm
D lib/Net/Ping/Changes
D lib/Net/Ping/t/100_load.t
D lib/Net/Ping/t/110_icmp_inst.t
D lib/Net/Ping/t/120_udp_inst.t
D lib/Net/Ping/t/130_tcp_inst.t
D lib/Net/Ping/t/140_stream_inst.t
D lib/Net/Ping/t/150_syn_inst.t
D lib/Net/Ping/t/190_alarm.t
D lib/Net/Ping/t/200_ping_tcp.t
D lib/Net/Ping/t/250_ping_hires.t
D lib/Net/Ping/t/300_ping_stream.t
D lib/Net/Ping/t/400_ping_syn.t
D lib/Net/Ping/t/410_syn_host.t
D lib/Net/Ping/t/450_service.t
D lib/Net/Ping/t/500_ping_icmp.t
D lib/Net/Ping/t/510_ping_udp.t
commit be4b05483c98e3d11ed62c5d285fff63ab65684e
Author: Nicholas Clark <nick@ccl4.org>
Date: Sun Aug 30 18:58:39 2009 +0100
Move I18N::LangTags from lib to ext
M MANIFEST
M Porting/Maintainers.pl
M ext/.gitignore
A ext/I18N-LangTags/ChangeLog
A ext/I18N-LangTags/README
A ext/I18N-LangTags/lib/I18N/LangTags.pm
A ext/I18N-LangTags/lib/I18N/LangTags/Detect.pm
A ext/I18N-LangTags/lib/I18N/LangTags/List.pm
A ext/I18N-LangTags/t/01_about_verbose.t
A ext/I18N-LangTags/t/05_main.t
A ext/I18N-LangTags/t/07_listy.t
A ext/I18N-LangTags/t/10_http.t
A ext/I18N-LangTags/t/20_locales.t
A ext/I18N-LangTags/t/50_super.t
A ext/I18N-LangTags/t/55_supers_strict.t
A ext/I18N-LangTags/t/80_all_env.t
M lib/.gitignore
D lib/I18N/LangTags.pm
D lib/I18N/LangTags/ChangeLog
D lib/I18N/LangTags/Detect.pm
D lib/I18N/LangTags/List.pm
D lib/I18N/LangTags/README
D lib/I18N/LangTags/t/01_about_verbose.t
D lib/I18N/LangTags/t/05_main.t
D lib/I18N/LangTags/t/07_listy.t
D lib/I18N/LangTags/t/10_http.t
D lib/I18N/LangTags/t/20_locales.t
D lib/I18N/LangTags/t/50_super.t
D lib/I18N/LangTags/t/55_supers_strict.t
D lib/I18N/LangTags/t/80_all_env.t
commit 06254a069d42f5a516ad5cde3e542453910e34f2
Author: Nicholas Clark <nick@ccl4.org>
Date: Sun Aug 30 18:40:39 2009 +0100
Move Filter::Simple from lib to ext
M MANIFEST
M Porting/Maintainers.pl
M ext/.gitignore
A ext/Filter-Simple/Changes
A ext/Filter-Simple/lib/Filter/Simple.pm
A ext/Filter-Simple/t/data.t
A ext/Filter-Simple/t/export.t
A ext/Filter-Simple/t/filter.t
A ext/Filter-Simple/t/filter_only.t
A ext/Filter-Simple/t/import.t
A ext/Filter-Simple/t/lib/Filter/Simple/ExportTest.pm
A ext/Filter-Simple/t/lib/Filter/Simple/FilterOnlyTest.pm
A ext/Filter-Simple/t/lib/Filter/Simple/FilterTest.pm
A ext/Filter-Simple/t/lib/Filter/Simple/ImportTest.pm
M lib/.gitignore
D lib/Filter/Simple.pm
D lib/Filter/Simple/Changes
D lib/Filter/Simple/t/data.t
D lib/Filter/Simple/t/export.t
D lib/Filter/Simple/t/filter.t
D lib/Filter/Simple/t/filter_only.t
D lib/Filter/Simple/t/import.t
D t/lib/Filter/Simple/ExportTest.pm
D t/lib/Filter/Simple/FilterOnlyTest.pm
D t/lib/Filter/Simple/FilterTest.pm
D t/lib/Filter/Simple/ImportTest.pm
-----------------------------------------------------------------------
Summary of changes:
MANIFEST | 82 ++++++++--------
Porting/Maintainers.pl | 13 +--
ext/.gitignore | 3 +
{lib/Filter/Simple => ext/Filter-Simple}/Changes | 0
{lib => ext/Filter-Simple/lib}/Filter/Simple.pm | 0
ext/Filter-Simple/t/data.t | 16 +++
ext/Filter-Simple/t/export.t | 8 ++
ext/Filter-Simple/t/filter.t | 24 +++++
ext/Filter-Simple/t/filter_only.t | 29 ++++++
ext/Filter-Simple/t/import.t | 9 ++
.../t}/lib/Filter/Simple/ExportTest.pm | 0
.../t}/lib/Filter/Simple/FilterOnlyTest.pm | 0
.../t}/lib/Filter/Simple/FilterTest.pm | 0
.../t}/lib/Filter/Simple/ImportTest.pm | 0
{lib/I18N/LangTags => ext/I18N-LangTags}/ChangeLog | 0
{lib/I18N/LangTags => ext/I18N-LangTags}/README | 0
{lib => ext/I18N-LangTags/lib}/I18N/LangTags.pm | 0
.../I18N-LangTags/lib}/I18N/LangTags/Detect.pm | 0
.../I18N-LangTags/lib}/I18N/LangTags/List.pm | 0
.../I18N-LangTags}/t/01_about_verbose.t | 0
.../LangTags => ext/I18N-LangTags}/t/05_main.t | 0
.../LangTags => ext/I18N-LangTags}/t/07_listy.t | 0
.../LangTags => ext/I18N-LangTags}/t/10_http.t | 0
.../LangTags => ext/I18N-LangTags}/t/20_locales.t | 0
.../LangTags => ext/I18N-LangTags}/t/50_super.t | 0
.../I18N-LangTags}/t/55_supers_strict.t | 0
.../LangTags => ext/I18N-LangTags}/t/80_all_env.t | 0
{lib/Net/Ping => ext/Net-Ping}/Changes | 0
{lib => ext/Net-Ping/lib}/Net/Ping.pm | 0
{lib/Net/Ping => ext/Net-Ping}/t/100_load.t | 0
{lib/Net/Ping => ext/Net-Ping}/t/110_icmp_inst.t | 0
{lib/Net/Ping => ext/Net-Ping}/t/120_udp_inst.t | 0
{lib/Net/Ping => ext/Net-Ping}/t/130_tcp_inst.t | 0
{lib/Net/Ping => ext/Net-Ping}/t/140_stream_inst.t | 0
{lib/Net/Ping => ext/Net-Ping}/t/150_syn_inst.t | 0
{lib/Net/Ping => ext/Net-Ping}/t/190_alarm.t | 0
ext/Net-Ping/t/200_ping_tcp.t | 66 ++++++++++++
ext/Net-Ping/t/250_ping_hires.t | 62 ++++++++++++
ext/Net-Ping/t/300_ping_stream.t | 73 ++++++++++++++
ext/Net-Ping/t/400_ping_syn.t | 99 ++++++++++++++++++
ext/Net-Ping/t/410_syn_host.t | 103 +++++++++++++++++++
{lib/Net/Ping => ext/Net-Ping}/t/450_service.t | 0
{lib/Net/Ping => ext/Net-Ping}/t/500_ping_icmp.t | 0
{lib/Net/Ping => ext/Net-Ping}/t/510_ping_udp.t | 0
lib/.gitignore | 4 +
lib/Filter/Simple/t/data.t | 23 -----
lib/Filter/Simple/t/export.t | 16 ---
lib/Filter/Simple/t/filter.t | 31 ------
lib/Filter/Simple/t/filter_only.t | 36 -------
lib/Filter/Simple/t/import.t | 17 ---
lib/Net/Ping/t/200_ping_tcp.t | 68 -------------
lib/Net/Ping/t/250_ping_hires.t | 64 ------------
lib/Net/Ping/t/300_ping_stream.t | 75 --------------
lib/Net/Ping/t/400_ping_syn.t | 101 -------------------
lib/Net/Ping/t/410_syn_host.t | 105 --------------------
55 files changed, 540 insertions(+), 587 deletions(-)
rename {lib/Filter/Simple => ext/Filter-Simple}/Changes (100%)
rename {lib => ext/Filter-Simple/lib}/Filter/Simple.pm (100%)
create mode 100644 ext/Filter-Simple/t/data.t
create mode 100644 ext/Filter-Simple/t/export.t
create mode 100644 ext/Filter-Simple/t/filter.t
create mode 100644 ext/Filter-Simple/t/filter_only.t
create mode 100644 ext/Filter-Simple/t/import.t
rename {t => ext/Filter-Simple/t}/lib/Filter/Simple/ExportTest.pm (100%)
rename {t => ext/Filter-Simple/t}/lib/Filter/Simple/FilterOnlyTest.pm (100%)
rename {t => ext/Filter-Simple/t}/lib/Filter/Simple/FilterTest.pm (100%)
rename {t => ext/Filter-Simple/t}/lib/Filter/Simple/ImportTest.pm (100%)
rename {lib/I18N/LangTags => ext/I18N-LangTags}/ChangeLog (100%)
rename {lib/I18N/LangTags => ext/I18N-LangTags}/README (100%)
rename {lib => ext/I18N-LangTags/lib}/I18N/LangTags.pm (100%)
rename {lib => ext/I18N-LangTags/lib}/I18N/LangTags/Detect.pm (100%)
rename {lib => ext/I18N-LangTags/lib}/I18N/LangTags/List.pm (100%)
rename {lib/I18N/LangTags => ext/I18N-LangTags}/t/01_about_verbose.t (100%)
rename {lib/I18N/LangTags => ext/I18N-LangTags}/t/05_main.t (100%)
rename {lib/I18N/LangTags => ext/I18N-LangTags}/t/07_listy.t (100%)
rename {lib/I18N/LangTags => ext/I18N-LangTags}/t/10_http.t (100%)
rename {lib/I18N/LangTags => ext/I18N-LangTags}/t/20_locales.t (100%)
rename {lib/I18N/LangTags => ext/I18N-LangTags}/t/50_super.t (100%)
rename {lib/I18N/LangTags => ext/I18N-LangTags}/t/55_supers_strict.t (100%)
rename {lib/I18N/LangTags => ext/I18N-LangTags}/t/80_all_env.t (100%)
rename {lib/Net/Ping => ext/Net-Ping}/Changes (100%)
rename {lib => ext/Net-Ping/lib}/Net/Ping.pm (100%)
rename {lib/Net/Ping => ext/Net-Ping}/t/100_load.t (100%)
rename {lib/Net/Ping => ext/Net-Ping}/t/110_icmp_inst.t (100%)
rename {lib/Net/Ping => ext/Net-Ping}/t/120_udp_inst.t (100%)
rename {lib/Net/Ping => ext/Net-Ping}/t/130_tcp_inst.t (100%)
rename {lib/Net/Ping => ext/Net-Ping}/t/140_stream_inst.t (100%)
rename {lib/Net/Ping => ext/Net-Ping}/t/150_syn_inst.t (100%)
rename {lib/Net/Ping => ext/Net-Ping}/t/190_alarm.t (100%)
create mode 100644 ext/Net-Ping/t/200_ping_tcp.t
create mode 100644 ext/Net-Ping/t/250_ping_hires.t
create mode 100644 ext/Net-Ping/t/300_ping_stream.t
create mode 100644 ext/Net-Ping/t/400_ping_syn.t
create mode 100644 ext/Net-Ping/t/410_syn_host.t
rename {lib/Net/Ping => ext/Net-Ping}/t/450_service.t (100%)
rename {lib/Net/Ping => ext/Net-Ping}/t/500_ping_icmp.t (100%)
rename {lib/Net/Ping => ext/Net-Ping}/t/510_ping_udp.t (100%)
delete mode 100644 lib/Filter/Simple/t/data.t
delete mode 100644 lib/Filter/Simple/t/export.t
delete mode 100644 lib/Filter/Simple/t/filter.t
delete mode 100644 lib/Filter/Simple/t/filter_only.t
delete mode 100644 lib/Filter/Simple/t/import.t
delete mode 100644 lib/Net/Ping/t/200_ping_tcp.t
delete mode 100644 lib/Net/Ping/t/250_ping_hires.t
delete mode 100644 lib/Net/Ping/t/300_ping_stream.t
delete mode 100644 lib/Net/Ping/t/400_ping_syn.t
delete mode 100644 lib/Net/Ping/t/410_syn_host.t
diff --git a/MANIFEST b/MANIFEST
index 77aea81..0e741cb 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -733,6 +733,17 @@ ext/File-Glob/t/case.t See if File::Glob works
ext/File-Glob/t/global.t See if File::Glob works
ext/File-Glob/TODO File::Glob extension todo list
ext/File-Glob/t/taint.t See if File::Glob works
+ext/Filter-Simple/Changes Filter::Simple
+ext/Filter-Simple/lib/Filter/Simple.pm Simple frontend to Filter::Util::Call
+ext/Filter-Simple/t/data.t See if Filter::Simple works
+ext/Filter-Simple/t/export.t See if Filter::Simple works
+ext/Filter-Simple/t/filter_only.t See if Filter::Simple works
+ext/Filter-Simple/t/filter.t See if Filter::Simple works
+ext/Filter-Simple/t/import.t See if Filter::Simple works
+ext/Filter-Simple/t/lib/Filter/Simple/ExportTest.pm Helper file for Filter::Simple tests
+ext/Filter-Simple/t/lib/Filter/Simple/FilterOnlyTest.pm Helper file for Filter::Simple tests
+ext/Filter-Simple/t/lib/Filter/Simple/FilterTest.pm Helper file for Filter::Simple tests
+ext/Filter-Simple/t/lib/Filter/Simple/ImportTest.pm Helper file for Filter::Simple tests
ext/Filter-Util-Call/Call.pm Filter::Util::Call extension module
ext/Filter-Util-Call/Call.xs Filter::Util::Call extension external subroutines
ext/Filter-Util-Call/filter-util.pl See if Filter::Util::Call works
@@ -765,6 +776,19 @@ ext/I18N-Langinfo/Langinfo.pm I18N::Langinfo
ext/I18N-Langinfo/Langinfo.xs I18N::Langinfo
ext/I18N-Langinfo/Makefile.PL I18N::Langinfo
ext/I18N-Langinfo/t/Langinfo.t See whether I18N::Langinfo works
+ext/I18N-LangTags/ChangeLog I18N::LangTags
+ext/I18N-LangTags/lib/I18N/LangTags/Detect.pm Detect language preferences
+ext/I18N-LangTags/lib/I18N/LangTags/List.pm List of tags for human languages
+ext/I18N-LangTags/lib/I18N/LangTags.pm I18N::LangTags
+ext/I18N-LangTags/README I18N::LangTags
+ext/I18N-LangTags/t/01_about_verbose.t See whether I18N::LangTags works
+ext/I18N-LangTags/t/05_main.t See whether I18N::LangTags works
+ext/I18N-LangTags/t/07_listy.t See whether I18N::LangTags works
+ext/I18N-LangTags/t/10_http.t See whether I18N::LangTags works
+ext/I18N-LangTags/t/20_locales.t See whether I18N::LangTags works
+ext/I18N-LangTags/t/50_super.t See whether I18N::LangTags works
+ext/I18N-LangTags/t/55_supers_strict.t See whether I18N::LangTags works
+ext/I18N-LangTags/t/80_all_env.t See whether I18N::LangTags works
ext/IO/ChangeLog IO perl module change log
ext/IO-Compress/Changes IO::Compress
ext/IO-Compress/examples/compress-zlib/filtdef IO::Compress
@@ -1109,6 +1133,23 @@ ext/NDBM_File/NDBM_File.pm NDBM extension Perl module
ext/NDBM_File/NDBM_File.xs NDBM extension external subroutines
ext/NDBM_File/t/ndbm.t See if NDBM_File works
ext/NDBM_File/typemap NDBM extension interface types
+ext/Net-Ping/Changes Net::Ping
+ext/Net-Ping/lib/Net/Ping.pm Hello, anybody home?
+ext/Net-Ping/t/100_load.t Ping Net::Ping
+ext/Net-Ping/t/110_icmp_inst.t Ping Net::Ping
+ext/Net-Ping/t/120_udp_inst.t Ping Net::Ping
+ext/Net-Ping/t/130_tcp_inst.t Ping Net::Ping
+ext/Net-Ping/t/140_stream_inst.t Ping Net::Ping
+ext/Net-Ping/t/150_syn_inst.t Ping Net::Ping
+ext/Net-Ping/t/190_alarm.t Ping Net::Ping
+ext/Net-Ping/t/200_ping_tcp.t Ping Net::Ping
+ext/Net-Ping/t/250_ping_hires.t Ping Net::Ping
+ext/Net-Ping/t/300_ping_stream.t Ping Net::Ping
+ext/Net-Ping/t/400_ping_syn.t Ping Net::Ping
+ext/Net-Ping/t/410_syn_host.t Ping Net::Ping
+ext/Net-Ping/t/450_service.t Ping Net::Ping
+ext/Net-Ping/t/500_ping_icmp.t Ping Net::Ping
+ext/Net-Ping/t/510_ping_udp.t Ping Net::Ping
ext/ODBM_File/hints/cygwin.pl Hint for ODBM_File for named architecture
ext/ODBM_File/hints/dec_osf.pl Hint for ODBM_File for named architecture
ext/ODBM_File/hints/gnukfreebsd.pl Hint for NDBM_File for named architecture
@@ -2424,13 +2465,6 @@ lib/File/Temp/t/seekable.t See if File::Temp works
lib/File/Temp/t/tempfile.t See if File::Temp works
lib/filetest.pm For "use filetest"
lib/filetest.t See if filetest works
-lib/Filter/Simple/Changes Filter::Simple
-lib/Filter/Simple.pm Simple frontend to Filter::Util::Call
-lib/Filter/Simple/t/data.t See if Filter::Simple works
-lib/Filter/Simple/t/export.t See if Filter::Simple works
-lib/Filter/Simple/t/filter_only.t See if Filter::Simple works
-lib/Filter/Simple/t/filter.t See if Filter::Simple works
-lib/Filter/Simple/t/import.t See if Filter::Simple works
lib/FindBin.pm Find name of currently executing program
lib/FindBin.t See if FindBin works
lib/finddepth.pl A depth-first find emulator--used by find2perl
@@ -2455,19 +2489,6 @@ lib/h2xs.t See if h2xs produces expected lists of files
lib/hostname.pl Old hostname code
lib/I18N/Collate.pm Routines to do strxfrm-based collation
lib/I18N/Collate.t See if I18N::Collate works
-lib/I18N/LangTags/ChangeLog I18N::LangTags
-lib/I18N/LangTags/Detect.pm Detect language preferences
-lib/I18N/LangTags/List.pm List of tags for human languages
-lib/I18N/LangTags.pm I18N::LangTags
-lib/I18N/LangTags/README I18N::LangTags
-lib/I18N/LangTags/t/01_about_verbose.t See whether I18N::LangTags works
-lib/I18N/LangTags/t/05_main.t See whether I18N::LangTags works
-lib/I18N/LangTags/t/07_listy.t See whether I18N::LangTags works
-lib/I18N/LangTags/t/10_http.t See whether I18N::LangTags works
-lib/I18N/LangTags/t/20_locales.t See whether I18N::LangTags works
-lib/I18N/LangTags/t/50_super.t See whether I18N::LangTags works
-lib/I18N/LangTags/t/55_supers_strict.t See whether I18N::LangTags works
-lib/I18N/LangTags/t/80_all_env.t See whether I18N::LangTags works
lib/if.pm For "use if"
lib/if.t Tests for "use if"
lib/importenv.pl Perl routine to get environment into variables
@@ -2772,23 +2793,6 @@ lib/Net/netent.pm By-name interface to Perl's builtin getnet*
lib/Net/netent.t See if Net::netent works
lib/Net/Netrc.pm libnet
lib/Net/NNTP.pm libnet
-lib/Net/Ping/Changes Net::Ping
-lib/Net/Ping.pm Hello, anybody home?
-lib/Net/Ping/t/100_load.t Ping Net::Ping
-lib/Net/Ping/t/110_icmp_inst.t Ping Net::Ping
-lib/Net/Ping/t/120_udp_inst.t Ping Net::Ping
-lib/Net/Ping/t/130_tcp_inst.t Ping Net::Ping
-lib/Net/Ping/t/140_stream_inst.t Ping Net::Ping
-lib/Net/Ping/t/150_syn_inst.t Ping Net::Ping
-lib/Net/Ping/t/190_alarm.t Ping Net::Ping
-lib/Net/Ping/t/200_ping_tcp.t Ping Net::Ping
-lib/Net/Ping/t/250_ping_hires.t Ping Net::Ping
-lib/Net/Ping/t/300_ping_stream.t Ping Net::Ping
-lib/Net/Ping/t/400_ping_syn.t Ping Net::Ping
-lib/Net/Ping/t/410_syn_host.t Ping Net::Ping
-lib/Net/Ping/t/450_service.t Ping Net::Ping
-lib/Net/Ping/t/500_ping_icmp.t Ping Net::Ping
-lib/Net/Ping/t/510_ping_udp.t Ping Net::Ping
lib/Net/POP3.pm libnet
lib/Net/protoent.pm By-name interface to Perl's builtin getproto*
lib/Net/protoent.t See if Net::protoent works
@@ -4048,10 +4052,6 @@ t/lib/feature/implicit Tests for implicit loading of feature.pm
t/lib/feature/nonesuch Tests for enabling/disabling nonexistent feature
t/lib/feature/say Tests for enabling/disabling say feature
t/lib/feature/switch Tests for enabling/disabling switch feature
-t/lib/Filter/Simple/ExportTest.pm Helper file for Filter::Simple tests
-t/lib/Filter/Simple/FilterOnlyTest.pm Helper file for Filter::Simple tests
-t/lib/Filter/Simple/FilterTest.pm Helper file for Filter::Simple tests
-t/lib/Filter/Simple/ImportTest.pm Helper file for Filter::Simple tests
t/lib/h2ph.h Test header file for h2ph
t/lib/h2ph.pht Generated output from h2ph.h by h2ph, for comparison
t/lib/locale/latin1 Part of locale.t in Latin 1
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index e9fa90b..79a8439 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -787,17 +787,10 @@ package Maintainers;
{
'MAINTAINER' => 'smueller',
'DISTRIBUTION' => 'SMUELLER/Filter-Simple-0.84.tar.gz',
- 'FILES' => q[lib/Filter/Simple.pm
- lib/Filter/Simple
- t/lib/Filter/Simple/
- ],
+ 'FILES' => q[ext/Filter-Simple],
'EXCLUDED' => [ qw(Makefile.PL MANIFEST README META.yml),
qr{^demo/}
],
- 'MAP' => { 't/lib/' => 't/lib/',
- 't/' => 'lib/Filter/Simple/t/',
- 'Changes' => 'lib/Filter/Simple/Changes',
- },
'CPAN' => 1,
'UPSTREAM' => "blead",
},
@@ -859,7 +852,7 @@ package Maintainers;
{
'MAINTAINER' => 'p5p',
'DISTRIBUTION' => 'SBURKE/I18N-LangTags-0.35.tar.gz',
- 'FILES' => q[lib/I18N/LangTags.pm lib/I18N/LangTags],
+ 'FILES' => q[ext/I18N-LangTags],
'CPAN' => 0,
'UPSTREAM' => 'blead',
},
@@ -1235,7 +1228,7 @@ package Maintainers;
{
'MAINTAINER' => 'smpeters',
'DISTRIBUTION' => 'SMPETERS/Net-Ping-2.36.tar.gz',
- 'FILES' => q[lib/Net/Ping.pm lib/Net/Ping],
+ 'FILES' => q[ext/Net-Ping],
'CPAN' => 1,
'UPSTREAM' => 'blead',
},
diff --git a/ext/.gitignore b/ext/.gitignore
index 7206d0a..2ecea00 100644
--- a/ext/.gitignore
+++ b/ext/.gitignore
@@ -40,6 +40,9 @@ ppport.h
/Shell/Makefile.PL
/Term-ANSIColor/Makefile.PL
/base/Makefile.PL
+/Filter-Simple/Makefile.PL
+/I18N-LangTags/Makefile.PL
+/Net-Ping/Makefile.PL
# ignore all vim swap files but the one bundled in Module::Pluggable for testing
*.swp
diff --git a/lib/Filter/Simple/Changes b/ext/Filter-Simple/Changes
similarity index 100%
rename from lib/Filter/Simple/Changes
rename to ext/Filter-Simple/Changes
diff --git a/lib/Filter/Simple.pm b/ext/Filter-Simple/lib/Filter/Simple.pm
similarity index 100%
rename from lib/Filter/Simple.pm
rename to ext/Filter-Simple/lib/Filter/Simple.pm
diff --git a/ext/Filter-Simple/t/data.t b/ext/Filter-Simple/t/data.t
new file mode 100644
index 0000000..0e67569
--- /dev/null
+++ b/ext/Filter-Simple/t/data.t
@@ -0,0 +1,16 @@
+BEGIN {
+ unshift @INC, 't/lib/';
+}
+
+use Filter::Simple::FilterOnlyTest qr/ok/ => "not ok", "bad" => "ok";
+print "1..6\n";
+
+print "bad 1\n";
+print "bad 2\n";
+print "bad 3\n";
+print <DATA>;
+
+__DATA__
+ok 4
+ok 5
+ok 6
diff --git a/ext/Filter-Simple/t/export.t b/ext/Filter-Simple/t/export.t
new file mode 100644
index 0000000..0f4d9b1
--- /dev/null
+++ b/ext/Filter-Simple/t/export.t
@@ -0,0 +1,8 @@
+BEGIN {
+ unshift @INC, 't/lib/';
+}
+BEGIN { print "1..1\n" }
+
+use Filter::Simple::ExportTest 'ok';
+
+notok 1;
diff --git a/ext/Filter-Simple/t/filter.t b/ext/Filter-Simple/t/filter.t
new file mode 100644
index 0000000..bf35977
--- /dev/null
+++ b/ext/Filter-Simple/t/filter.t
@@ -0,0 +1,24 @@
+BEGIN {
+ unshift @INC, 't/lib/';
+}
+
+use Filter::Simple::FilterTest qr/not ok/ => "ok", fail => "ok";
+
+print "1..6\n";
+
+sub fail { print "fail ", $_[0], "\n" }
+
+print "not ok 1\n";
+print "fail 2\n";
+
+fail(3);
+&fail(4);
+
+print "not " unless "whatnot okapi" eq "whatokapi";
+print "ok 5\n";
+
+no Filter::Simple::FilterTest;
+
+print "not " unless "not ok" =~ /^not /;
+print "ok 6\n";
+
diff --git a/ext/Filter-Simple/t/filter_only.t b/ext/Filter-Simple/t/filter_only.t
new file mode 100644
index 0000000..f30fced
--- /dev/null
+++ b/ext/Filter-Simple/t/filter_only.t
@@ -0,0 +1,29 @@
+BEGIN {
+ unshift @INC, 't/lib/';
+}
+
+use Filter::Simple::FilterOnlyTest qr/not ok/ => "ok",
+ "bad" => "ok", fail => "die";
+print "1..9\n";
+
+sub fail { print "ok ", $_[0], "\n" }
+sub ok { print "ok ", $_[0], "\n" }
+
+print "not ok 1\n";
+print "bad 2\n";
+
+fail(3);
+&fail(4);
+
+print "not " unless "whatnot okapi" eq "whatokapi";
+print "ok 5\n";
+
+ok 7 unless not ok 6;
+
+no Filter::Simple::FilterOnlyTest; # THE FUN STOPS HERE
+
+print "not " unless "not ok" =~ /^not /;
+print "ok 8\n";
+
+print "not " unless "bad" =~ /bad/;
+print "ok 9\n";
diff --git a/ext/Filter-Simple/t/import.t b/ext/Filter-Simple/t/import.t
new file mode 100644
index 0000000..e5c6070
--- /dev/null
+++ b/ext/Filter-Simple/t/import.t
@@ -0,0 +1,9 @@
+BEGIN {
+ unshift @INC, 't/lib';
+}
+
+BEGIN { print "1..4\n" }
+
+use Filter::Simple::ImportTest (1..3);
+
+say "not ok 4\n";
diff --git a/t/lib/Filter/Simple/ExportTest.pm b/ext/Filter-Simple/t/lib/Filter/Simple/ExportTest.pm
similarity index 100%
rename from t/lib/Filter/Simple/ExportTest.pm
rename to ext/Filter-Simple/t/lib/Filter/Simple/ExportTest.pm
diff --git a/t/lib/Filter/Simple/FilterOnlyTest.pm b/ext/Filter-Simple/t/lib/Filter/Simple/FilterOnlyTest.pm
similarity index 100%
rename from t/lib/Filter/Simple/FilterOnlyTest.pm
rename to ext/Filter-Simple/t/lib/Filter/Simple/FilterOnlyTest.pm
diff --git a/t/lib/Filter/Simple/FilterTest.pm b/ext/Filter-Simple/t/lib/Filter/Simple/FilterTest.pm
similarity index 100%
rename from t/lib/Filter/Simple/FilterTest.pm
rename to ext/Filter-Simple/t/lib/Filter/Simple/FilterTest.pm
diff --git a/t/lib/Filter/Simple/ImportTest.pm b/ext/Filter-Simple/t/lib/Filter/Simple/ImportTest.pm
similarity index 100%
rename from t/lib/Filter/Simple/ImportTest.pm
rename to ext/Filter-Simple/t/lib/Filter/Simple/ImportTest.pm
diff --git a/lib/I18N/LangTags/ChangeLog b/ext/I18N-LangTags/ChangeLog
similarity index 100%
rename from lib/I18N/LangTags/ChangeLog
rename to ext/I18N-LangTags/ChangeLog
diff --git a/lib/I18N/LangTags/README b/ext/I18N-LangTags/README
similarity index 100%
rename from lib/I18N/LangTags/README
rename to ext/I18N-LangTags/README
diff --git a/lib/I18N/LangTags.pm b/ext/I18N-LangTags/lib/I18N/LangTags.pm
similarity index 100%
rename from lib/I18N/LangTags.pm
rename to ext/I18N-LangTags/lib/I18N/LangTags.pm
diff --git a/lib/I18N/LangTags/Detect.pm b/ext/I18N-LangTags/lib/I18N/LangTags/Detect.pm
similarity index 100%
rename from lib/I18N/LangTags/Detect.pm
rename to ext/I18N-LangTags/lib/I18N/LangTags/Detect.pm
diff --git a/lib/I18N/LangTags/List.pm b/ext/I18N-LangTags/lib/I18N/LangTags/List.pm
similarity index 100%
rename from lib/I18N/LangTags/List.pm
rename to ext/I18N-LangTags/lib/I18N/LangTags/List.pm
diff --git a/lib/I18N/LangTags/t/01_about_verbose.t b/ext/I18N-LangTags/t/01_about_verbose.t
similarity index 100%
rename from lib/I18N/LangTags/t/01_about_verbose.t
rename to ext/I18N-LangTags/t/01_about_verbose.t
diff --git a/lib/I18N/LangTags/t/05_main.t b/ext/I18N-LangTags/t/05_main.t
similarity index 100%
rename from lib/I18N/LangTags/t/05_main.t
rename to ext/I18N-LangTags/t/05_main.t
diff --git a/lib/I18N/LangTags/t/07_listy.t b/ext/I18N-LangTags/t/07_listy.t
similarity index 100%
rename from lib/I18N/LangTags/t/07_listy.t
rename to ext/I18N-LangTags/t/07_listy.t
diff --git a/lib/I18N/LangTags/t/10_http.t b/ext/I18N-LangTags/t/10_http.t
similarity index 100%
rename from lib/I18N/LangTags/t/10_http.t
rename to ext/I18N-LangTags/t/10_http.t
diff --git a/lib/I18N/LangTags/t/20_locales.t b/ext/I18N-LangTags/t/20_locales.t
similarity index 100%
rename from lib/I18N/LangTags/t/20_locales.t
rename to ext/I18N-LangTags/t/20_locales.t
diff --git a/lib/I18N/LangTags/t/50_super.t b/ext/I18N-LangTags/t/50_super.t
similarity index 100%
rename from lib/I18N/LangTags/t/50_super.t
rename to ext/I18N-LangTags/t/50_super.t
diff --git a/lib/I18N/LangTags/t/55_supers_strict.t b/ext/I18N-LangTags/t/55_supers_strict.t
similarity index 100%
rename from lib/I18N/LangTags/t/55_supers_strict.t
rename to ext/I18N-LangTags/t/55_supers_strict.t
diff --git a/lib/I18N/LangTags/t/80_all_env.t b/ext/I18N-LangTags/t/80_all_env.t
similarity index 100%
rename from lib/I18N/LangTags/t/80_all_env.t
rename to ext/I18N-LangTags/t/80_all_env.t
diff --git a/lib/Net/Ping/Changes b/ext/Net-Ping/Changes
similarity index 100%
rename from lib/Net/Ping/Changes
rename to ext/Net-Ping/Changes
diff --git a/lib/Net/Ping.pm b/ext/Net-Ping/lib/Net/Ping.pm
similarity index 100%
rename from lib/Net/Ping.pm
rename to ext/Net-Ping/lib/Net/Ping.pm
diff --git a/lib/Net/Ping/t/100_load.t b/ext/Net-Ping/t/100_load.t
similarity index 100%
rename from lib/Net/Ping/t/100_load.t
rename to ext/Net-Ping/t/100_load.t
diff --git a/lib/Net/Ping/t/110_icmp_inst.t b/ext/Net-Ping/t/110_icmp_inst.t
similarity index 100%
rename from lib/Net/Ping/t/110_icmp_inst.t
rename to ext/Net-Ping/t/110_icmp_inst.t
diff --git a/lib/Net/Ping/t/120_udp_inst.t b/ext/Net-Ping/t/120_udp_inst.t
similarity index 100%
rename from lib/Net/Ping/t/120_udp_inst.t
rename to ext/Net-Ping/t/120_udp_inst.t
diff --git a/lib/Net/Ping/t/130_tcp_inst.t b/ext/Net-Ping/t/130_tcp_inst.t
similarity index 100%
rename from lib/Net/Ping/t/130_tcp_inst.t
rename to ext/Net-Ping/t/130_tcp_inst.t
diff --git a/lib/Net/Ping/t/140_stream_inst.t b/ext/Net-Ping/t/140_stream_inst.t
similarity index 100%
rename from lib/Net/Ping/t/140_stream_inst.t
rename to ext/Net-Ping/t/140_stream_inst.t
diff --git a/lib/Net/Ping/t/150_syn_inst.t b/ext/Net-Ping/t/150_syn_inst.t
similarity index 100%
rename from lib/Net/Ping/t/150_syn_inst.t
rename to ext/Net-Ping/t/150_syn_inst.t
diff --git a/lib/Net/Ping/t/190_alarm.t b/ext/Net-Ping/t/190_alarm.t
similarity index 100%
rename from lib/Net/Ping/t/190_alarm.t
rename to ext/Net-Ping/t/190_alarm.t
diff --git a/ext/Net-Ping/t/200_ping_tcp.t b/ext/Net-Ping/t/200_ping_tcp.t
new file mode 100644
index 0000000..0f59234
--- /dev/null
+++ b/ext/Net-Ping/t/200_ping_tcp.t
@@ -0,0 +1,66 @@
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ unless ($ENV{PERL_TEST_Net_Ping}) {
+ print "1..0 # Skip: network dependent test\n";
+ exit;
+ }
+ }
+ unless (eval "require Socket") {
+ print "1..0 \# Skip: no Socket\n";
+ exit;
+ }
+ unless (getservbyname('echo', 'tcp')) {
+ print "1..0 \# Skip: no echo port\n";
+ exit;
+ }
+}
+
+# Remote network test using tcp protocol.
+#
+# NOTE:
+# Network connectivity will be required for all tests to pass.
+# Firewalls may also cause some tests to fail, so test it
+# on a clear network. If you know you do not have a direct
+# connection to remote networks, but you still want the tests
+# to pass, use the following:
+#
+# $ PERL_CORE=1 make test
+
+use Test;
+use Net::Ping;
+plan tests => 13;
+
+# Everything loaded fine
+ok 1;
+
+my $p = new Net::Ping "tcp",9;
+
+# new() worked?
+ok !!$p;
+
+# Test on the default port
+ok $p -> ping("localhost");
+
+# Change to use the more common web port.
+# This will pull from /etc/services on UNIX.
+# (Make sure getservbyname works in scalar context.)
+ok ($p -> {port_num} = (getservbyname("http", "tcp") || 80));
+
+# Test localhost on the web port
+ok $p -> ping("localhost");
+
+# Hopefully this is never a routeable host
+ok !$p -> ping("172.29.249.249");
+
+# Test a few remote servers
+# Hopefully they are up when the tests are run.
+
+ok $p -> ping("www.geocities.com");
+ok $p -> ping("ftp.geocities.com");
+
+ok $p -> ping("www.freeservers.com");
+ok $p -> ping("ftp.freeservers.com");
+
+ok $p -> ping("yahoo.com");
+ok $p -> ping("www.yahoo.com");
+ok $p -> ping("www.about.com");
diff --git a/ext/Net-Ping/t/250_ping_hires.t b/ext/Net-Ping/t/250_ping_hires.t
new file mode 100644
index 0000000..1f4bcb3
--- /dev/null
+++ b/ext/Net-Ping/t/250_ping_hires.t
@@ -0,0 +1,62 @@
+# Test to make sure hires feature works.
+
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ unless ($ENV{PERL_TEST_Net_Ping}) {
+ print "1..0 # Skip: network dependent test\n";
+ exit;
+ }
+ }
+ unless (eval "require Socket") {
+ print "1..0 \# Skip: no Socket\n";
+ exit;
+ }
+ unless (eval "require Time::HiRes") {
+ print "1..0 \# Skip: no Time::HiRes\n";
+ exit;
+ }
+ unless (getservbyname('echo', 'tcp')) {
+ print "1..0 \# Skip: no echo port\n";
+ exit;
+ }
+}
+
+use Test qw(plan ok $TESTERR);
+use Net::Ping;
+plan tests => 8;
+
+# Everything loaded fine
+ok 1;
+
+my $p = new Net::Ping "tcp";
+
+# new() worked?
+ok !!$p;
+
+# Default is to not use Time::HiRes
+ok !$Net::Ping::hires;
+
+# Enable hires
+$p -> hires();
+ok $Net::Ping::hires;
+
+# Make sure disable works
+$p -> hires(0);
+ok !$Net::Ping::hires;
+
+# Enable again
+$p -> hires(1);
+ok $Net::Ping::hires;
+
+# Test on the default port
+my ($ret, $duration) = $p -> ping("localhost");
+
+# localhost should always be reachable, right?
+ok $ret;
+
+# It is extremely likely that the duration contains a decimal
+# point if Time::HiRes is functioning properly, except when it
+# is fast enough to be "0", or slow enough to be exactly "1".
+if (! ok($duration =~ /\.|^[01]$/)) {
+ print($TESTERR "# duration=[$duration]\n");
+}
diff --git a/ext/Net-Ping/t/300_ping_stream.t b/ext/Net-Ping/t/300_ping_stream.t
new file mode 100644
index 0000000..d5a3a3f
--- /dev/null
+++ b/ext/Net-Ping/t/300_ping_stream.t
@@ -0,0 +1,73 @@
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ unless ($ENV{PERL_TEST_Net_Ping}) {
+ print "1..0 # Skip: network dependent test\n";
+ exit;
+ }
+ }
+ unless (eval "require Socket") {
+ print "1..0 \# Skip: no Socket\n";
+ exit;
+ }
+ if (my $port = getservbyname('echo', 'tcp')) {
+ socket(*ECHO, &Socket::PF_INET(), &Socket::SOCK_STREAM(), (getprotobyname 'tcp')[2]);
+ unless (connect(*ECHO, scalar &Socket::sockaddr_in($port, &Socket::inet_aton("localhost")))) {
+ print "1..0 \# Skip: loopback tcp echo service is off ($!)\n";
+ exit;
+ }
+ close (*ECHO);
+ } else {
+ print "1..0 \# Skip: no echo port\n";
+ exit;
+ }
+}
+
+# Test of stream protocol using loopback interface.
+#
+# NOTE:
+# The echo service must be enabled on localhost
+# to really test the stream protocol ping. See
+# the end of this document on how to enable it.
+
+use Test;
+use Net::Ping;
+plan tests => 22;
+
+my $p = new Net::Ping "stream";
+
+# new() worked?
+ok !!$p;
+
+# Attempt to connect to the echo port
+ok ($p -> ping("localhost"));
+
+# Try several pings while it is connected
+for (1..20) {
+ select (undef,undef,undef,0.1);
+ ok $p -> ping("localhost");
+}
+
+__END__
+
+A simple xinetd configuration to enable the echo service can easily be made.
+Just create the following file before restarting xinetd:
+
+/etc/xinetd.d/echo:
+
+# description: An echo server.
+service echo
+{
+ type = INTERNAL
+ id = echo-stream
+ socket_type = stream
+ protocol = tcp
+ user = root
+ wait = no
+ disable = no
+}
+
+
+Or if you are using inetd, before restarting, add
+this line to your /etc/inetd.conf:
+
+echo stream tcp nowait root internal
diff --git a/ext/Net-Ping/t/400_ping_syn.t b/ext/Net-Ping/t/400_ping_syn.t
new file mode 100644
index 0000000..915e0ff
--- /dev/null
+++ b/ext/Net-Ping/t/400_ping_syn.t
@@ -0,0 +1,99 @@
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ unless ($ENV{PERL_TEST_Net_Ping}) {
+ print "1..0 # Skip: network dependent test\n";
+ exit;
+ }
+ }
+ unless (eval "require Socket") {
+ print "1..0 \# Skip: no Socket\n";
+ exit;
+ }
+ unless (getservbyname('echo', 'tcp')) {
+ print "1..0 \# Skip: no echo port\n";
+ exit;
+ }
+ unless (getservbyname('http', 'tcp')) {
+ print "1..0 \# Skip: no http port\n";
+ exit;
+ }
+}
+
+# Remote network test using syn protocol.
+#
+# NOTE:
+# Network connectivity will be required for all tests to pass.
+# Firewalls may also cause some tests to fail, so test it
+# on a clear network. If you know you do not have a direct
+# connection to remote networks, but you still want the tests
+# to pass, use the following:
+#
+# $ PERL_CORE=1 make test
+
+# Try a few remote servers
+my $webs = {
+ # Hopefully this is never a routeable host
+ "172.29.249.249" => 0,
+
+ # Hopefully all these web ports are open
+ "www.geocities.com." => 1,
+ "www.freeservers.com." => 1,
+ "yahoo.com." => 1,
+ "www.yahoo.com." => 1,
+ "www.about.com." => 1,
+ "www.microsoft.com." => 1,
+ "127.0.0.1" => 1,
+};
+
+use strict;
+use Test;
+use Net::Ping;
+plan tests => ((keys %{ $webs }) * 2 + 3);
+
+# Everything loaded fine
+ok 1;
+
+my $can_alarm = eval {alarm 0; 1;};
+
+sub Alarm {
+ alarm(shift) if $can_alarm;
+}
+
+Alarm(50);
+$SIG{ALRM} = sub {
+ ok 0;
+ die "TIMED OUT!";
+};
+
+my $p = new Net::Ping "syn", 10;
+
+# new() worked?
+ok !!$p;
+
+# Change to use the more common web port.
+# (Make sure getservbyname works in scalar context.)
+ok ($p -> {port_num} = getservbyname("http", "tcp"));
+
+foreach my $host (keys %{ $webs }) {
+ # ping() does dns resolution and
+ # only sends the SYN at this point
+ Alarm(50); # (Plenty for a DNS lookup)
+ if (!ok $p -> ping($host)) {
+ print STDERR "CANNOT RESOLVE $host $p->{bad}->{$host}\n";
+ }
+}
+
+Alarm(20);
+while (my $host = $p->ack()) {
+ if (!ok $webs->{$host}) {
+ print STDERR "SUPPOSED TO BE DOWN: http://$host/\n";
+ }
+ delete $webs->{$host};
+}
+
+Alarm(0);
+foreach my $host (keys %{ $webs }) {
+ if (!ok !$webs->{$host}) {
+ print STDERR "DOWN: http://$host/ [",($p->{bad}->{$host} || ""),"]\n";
+ }
+}
diff --git a/ext/Net-Ping/t/410_syn_host.t b/ext/Net-Ping/t/410_syn_host.t
new file mode 100644
index 0000000..efadcb4
--- /dev/null
+++ b/ext/Net-Ping/t/410_syn_host.t
@@ -0,0 +1,103 @@
+# Same as 400_ping_syn.t but testing ack( $host ) instead of ack( ).
+
+BEGIN {
+ if ($ENV{PERL_CORE}) {
+ unless ($ENV{PERL_TEST_Net_Ping}) {
+ print "1..0 # Skip: network dependent test\n";
+ exit;
+ }
+ }
+ unless (eval "require Socket") {
+ print "1..0 \# Skip: no Socket\n";
+ exit;
+ }
+ unless (getservbyname('echo', 'tcp')) {
+ print "1..0 \# Skip: no echo port\n";
+ exit;
+ }
+ unless (getservbyname('http', 'tcp')) {
+ print "1..0 \# Skip: no http port\n";
+ exit;
+ }
+}
+
+# Remote network test using syn protocol.
+#
+# NOTE:
+# Network connectivity will be required for all tests to pass.
+# Firewalls may also cause some tests to fail, so test it
+# on a clear network. If you know you do not have a direct
+# connection to remote networks, but you still want the tests
+# to pass, use the following:
+#
+# $ PERL_CORE=1 make test
+
+# Try a few remote servers
+my $webs = {
+ # Hopefully this is never a routeable host
+ "172.29.249.249" => 0,
+
+ # Hopefully all these web ports are open
+ "www.geocities.com." => 1,
+ "www.freeservers.com." => 1,
+ "yahoo.com." => 1,
+ "www.yahoo.com." => 1,
+ "www.about.com." => 1,
+ "www.microsoft.com." => 1,
+ "127.0.0.1" => 1,
+};
+
+use strict;
+use Test;
+use Net::Ping;
+plan tests => ((keys %{ $webs }) * 2 + 3);
+
+# Everything loaded fine
+ok 1;
+
+my $can_alarm = eval {alarm 0; 1;};
+
+sub Alarm {
+ alarm(shift) if $can_alarm;
+}
+
+Alarm(50);
+$SIG{ALRM} = sub {
+ ok 0;
+ die "TIMED OUT!";
+};
+
+my $p = new Net::Ping "syn", 10;
+
+# new() worked?
+ok !!$p;
+
+# Change to use the more common web port.
+# (Make sure getservbyname works in scalar context.)
+ok ($p -> {port_num} = getservbyname("http", "tcp"));
+
+foreach my $host (keys %{ $webs }) {
+ # ping() does dns resolution and
+ # only sends the SYN at this point
+ Alarm(50); # (Plenty for a DNS lookup)
+ if (!ok($p -> ping($host))) {
+ print STDERR "CANNOT RESOLVE $host $p->{bad}->{$host}\n";
+ }
+}
+
+Alarm(20);
+foreach my $host (sort keys %{ $webs }) {
+ my $on = $p->ack($host);
+ if (!ok (($on && $webs->{$host}) ||
+ (!$on && !$webs->{$host}))) {
+ if ($on) {
+ print STDERR "SUPPOSED TO BE DOWN: http://$host/\n";
+ } else {
+ print STDERR "DOWN: http://$host/ [",($p->{bad}->{$host} || ""),"]\n";
+ }
+ }
+ delete $webs->{$host};
+ Alarm(20);
+}
+
+Alarm(0);
diff --git a/lib/Net/Ping/t/450_service.t b/ext/Net-Ping/t/450_service.t
similarity index 100%
rename from lib/Net/Ping/t/450_service.t
rename to ext/Net-Ping/t/450_service.t
diff --git a/lib/Net/Ping/t/500_ping_icmp.t b/ext/Net-Ping/t/500_ping_icmp.t
similarity index 100%
rename from lib/Net/Ping/t/500_ping_icmp.t
rename to ext/Net-Ping/t/500_ping_icmp.t
diff --git a/lib/Net/Ping/t/510_ping_udp.t b/ext/Net-Ping/t/510_ping_udp.t
similarity index 100%
rename from lib/Net/Ping/t/510_ping_udp.t
rename to ext/Net-Ping/t/510_ping_udp.t
diff --git a/lib/.gitignore b/lib/.gitignore
index 57cc638..3309b9b 100644
--- a/lib/.gitignore
+++ b/lib/.gitignore
@@ -22,9 +22,12 @@
/Fcntl.pm
/File/Glob.pm
/File/GlobMapper.pm
+/Filter/Simple.pm
/Filter/Util
/GDBM_File.pm
/Hash
+/I18N/LangTags
+/I18N/LangTags.pm
/I18N/Langinfo.pm
/IO.pm
/IO/Compress
@@ -47,6 +50,7 @@
/Math/BigInt/FastCalc.pm
/Module/Pluggable.pm
/Module/Pluggable
+/Net/Ping.pm
/NDBM_File.pm
/O.pm
/ODBM_File.pm
diff --git a/lib/Filter/Simple/t/data.t b/lib/Filter/Simple/t/data.t
deleted file mode 100644
index aaf2dca..0000000
--- a/lib/Filter/Simple/t/data.t
+++ /dev/null
@@ -1,23 +0,0 @@
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib/';
- }
-}
-chdir 't';
-
-use Filter::Simple::FilterOnlyTest qr/ok/ => "not ok", "bad" => "ok";
-print "1..6\n";
-
-print "bad 1\n";
-print "bad 2\n";
-print "bad 3\n";
-print <DATA>;
-
-__DATA__
-ok 4
-ok 5
-ok 6
diff --git a/lib/Filter/Simple/t/export.t b/lib/Filter/Simple/t/export.t
deleted file mode 100644
index 5718442..0000000
--- a/lib/Filter/Simple/t/export.t
+++ /dev/null
@@ -1,16 +0,0 @@
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib/';
- }
-}
-chdir 't';
-
-BEGIN { print "1..1\n" }
-
-use Filter::Simple::ExportTest 'ok';
-
-notok 1;
diff --git a/lib/Filter/Simple/t/filter.t b/lib/Filter/Simple/t/filter.t
deleted file mode 100644
index 75c54e7..0000000
--- a/lib/Filter/Simple/t/filter.t
+++ /dev/null
@@ -1,31 +0,0 @@
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib/';
- }
-}
-chdir 't';
-
-use Filter::Simple::FilterTest qr/not ok/ => "ok", fail => "ok";
-
-print "1..6\n";
-
-sub fail { print "fail ", $_[0], "\n" }
-
-print "not ok 1\n";
-print "fail 2\n";
-
-fail(3);
-&fail(4);
-
-print "not " unless "whatnot okapi" eq "whatokapi";
-print "ok 5\n";
-
-no Filter::Simple::FilterTest;
-
-print "not " unless "not ok" =~ /^not /;
-print "ok 6\n";
-
diff --git a/lib/Filter/Simple/t/filter_only.t b/lib/Filter/Simple/t/filter_only.t
deleted file mode 100644
index 3ec855d..0000000
--- a/lib/Filter/Simple/t/filter_only.t
+++ /dev/null
@@ -1,36 +0,0 @@
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib/';
- }
-}
-chdir 't';
-
-use Filter::Simple::FilterOnlyTest qr/not ok/ => "ok",
- "bad" => "ok", fail => "die";
-print "1..9\n";
-
-sub fail { print "ok ", $_[0], "\n" }
-sub ok { print "ok ", $_[0], "\n" }
-
-print "not ok 1\n";
-print "bad 2\n";
-
-fail(3);
-&fail(4);
-
-print "not " unless "whatnot okapi" eq "whatokapi";
-print "ok 5\n";
-
-ok 7 unless not ok 6;
-
-no Filter::Simple::FilterOnlyTest; # THE FUN STOPS HERE
-
-print "not " unless "not ok" =~ /^not /;
-print "ok 8\n";
-
-print "not " unless "bad" =~ /bad/;
-print "ok 9\n";
diff --git a/lib/Filter/Simple/t/import.t b/lib/Filter/Simple/t/import.t
deleted file mode 100644
index 755af74..0000000
--- a/lib/Filter/Simple/t/import.t
+++ /dev/null
@@ -1,17 +0,0 @@
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = ('../lib', 'lib');
- }
- else {
- unshift @INC, 't/lib';
- }
-}
-chdir 't';
-
-BEGIN { print "1..4\n" }
-
-use lib 'lib';
-use Filter::Simple::ImportTest (1..3);
-
-say "not ok 4\n";
diff --git a/lib/Net/Ping/t/200_ping_tcp.t b/lib/Net/Ping/t/200_ping_tcp.t
deleted file mode 100644
index 2ac2236..0000000
--- a/lib/Net/Ping/t/200_ping_tcp.t
+++ /dev/null
@@ -1,68 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- unless ($ENV{PERL_TEST_Net_Ping}) {
- print "1..0 # Skip: network dependent test\n";
- exit;
- }
- chdir 't' if -d 't';
- @INC = qw(../lib);
- }
- unless (eval "require Socket") {
- print "1..0 \# Skip: no Socket\n";
- exit;
- }
- unless (getservbyname('echo', 'tcp')) {
- print "1..0 \# Skip: no echo port\n";
- exit;
- }
-}
-
-# Remote network test using tcp protocol.
-#
-# NOTE:
-# Network connectivity will be required for all tests to pass.
-# Firewalls may also cause some tests to fail, so test it
-# on a clear network. If you know you do not have a direct
-# connection to remote networks, but you still want the tests
-# to pass, use the following:
-#
-# $ PERL_CORE=1 make test
-
-use Test;
-use Net::Ping;
-plan tests => 13;
-
-# Everything loaded fine
-ok 1;
-
-my $p = new Net::Ping "tcp",9;
-
-# new() worked?
-ok !!$p;
-
-# Test on the default port
-ok $p -> ping("localhost");
-
-# Change to use the more common web port.
-# This will pull from /etc/services on UNIX.
-# (Make sure getservbyname works in scalar context.)
-ok ($p -> {port_num} = (getservbyname("http", "tcp") || 80));
-
-# Test localhost on the web port
-ok $p -> ping("localhost");
-
-# Hopefully this is never a routeable host
-ok !$p -> ping("172.29.249.249");
-
-# Test a few remote servers
-# Hopefully they are up when the tests are run.
-
-ok $p -> ping("www.geocities.com");
-ok $p -> ping("ftp.geocities.com");
-
-ok $p -> ping("www.freeservers.com");
-ok $p -> ping("ftp.freeservers.com");
-
-ok $p -> ping("yahoo.com");
-ok $p -> ping("www.yahoo.com");
-ok $p -> ping("www.about.com");
diff --git a/lib/Net/Ping/t/250_ping_hires.t b/lib/Net/Ping/t/250_ping_hires.t
deleted file mode 100644
index a2187d0..0000000
--- a/lib/Net/Ping/t/250_ping_hires.t
+++ /dev/null
@@ -1,64 +0,0 @@
-# Test to make sure hires feature works.
-
-BEGIN {
- if ($ENV{PERL_CORE}) {
- unless ($ENV{PERL_TEST_Net_Ping}) {
- print "1..0 # Skip: network dependent test\n";
- exit;
- }
- chdir 't' if -d 't';
- @INC = qw(../lib);
- }
- unless (eval "require Socket") {
- print "1..0 \# Skip: no Socket\n";
- exit;
- }
- unless (eval "require Time::HiRes") {
- print "1..0 \# Skip: no Time::HiRes\n";
- exit;
- }
- unless (getservbyname('echo', 'tcp')) {
- print "1..0 \# Skip: no echo port\n";
- exit;
- }
-}
-
-use Test qw(plan ok $TESTERR);
-use Net::Ping;
-plan tests => 8;
-
-# Everything loaded fine
-ok 1;
-
-my $p = new Net::Ping "tcp";
-
-# new() worked?
-ok !!$p;
-
-# Default is to not use Time::HiRes
-ok !$Net::Ping::hires;
-
-# Enable hires
-$p -> hires();
-ok $Net::Ping::hires;
-
-# Make sure disable works
-$p -> hires(0);
-ok !$Net::Ping::hires;
-
-# Enable again
-$p -> hires(1);
-ok $Net::Ping::hires;
-
-# Test on the default port
-my ($ret, $duration) = $p -> ping("localhost");
-
-# localhost should always be reachable, right?
-ok $ret;
-
-# It is extremely likely that the duration contains a decimal
-# point if Time::HiRes is functioning properly, except when it
-# is fast enough to be "0", or slow enough to be exactly "1".
-if (! ok($duration =~ /\.|^[01]$/)) {
- print($TESTERR "# duration=[$duration]\n");
-}
diff --git a/lib/Net/Ping/t/300_ping_stream.t b/lib/Net/Ping/t/300_ping_stream.t
deleted file mode 100644
index 3a2f444..0000000
--- a/lib/Net/Ping/t/300_ping_stream.t
+++ /dev/null
@@ -1,75 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- unless ($ENV{PERL_TEST_Net_Ping}) {
- print "1..0 # Skip: network dependent test\n";
- exit;
- }
- chdir 't' if -d 't';
- @INC = qw(../lib);
- }
- unless (eval "require Socket") {
- print "1..0 \# Skip: no Socket\n";
- exit;
- }
- if (my $port = getservbyname('echo', 'tcp')) {
- socket(*ECHO, &Socket::PF_INET(), &Socket::SOCK_STREAM(), (getprotobyname 'tcp')[2]);
- unless (connect(*ECHO, scalar &Socket::sockaddr_in($port, &Socket::inet_aton("localhost")))) {
- print "1..0 \# Skip: loopback tcp echo service is off ($!)\n";
- exit;
- }
- close (*ECHO);
- } else {
- print "1..0 \# Skip: no echo port\n";
- exit;
- }
-}
-
-# Test of stream protocol using loopback interface.
-#
-# NOTE:
-# The echo service must be enabled on localhost
-# to really test the stream protocol ping. See
-# the end of this document on how to enable it.
-
-use Test;
-use Net::Ping;
-plan tests => 22;
-
-my $p = new Net::Ping "stream";
-
-# new() worked?
-ok !!$p;
-
-# Attempt to connect to the echo port
-ok ($p -> ping("localhost"));
-
-# Try several pings while it is connected
-for (1..20) {
- select (undef,undef,undef,0.1);
- ok $p -> ping("localhost");
-}
-
-__END__
-
-A simple xinetd configuration to enable the echo service can easily be made.
-Just create the following file before restarting xinetd:
-
-/etc/xinetd.d/echo:
-
-# description: An echo server.
-service echo
-{
- type = INTERNAL
- id = echo-stream
- socket_type = stream
- protocol = tcp
- user = root
- wait = no
- disable = no
-}
-
-
-Or if you are using inetd, before restarting, add
-this line to your /etc/inetd.conf:
-
-echo stream tcp nowait root internal
diff --git a/lib/Net/Ping/t/400_ping_syn.t b/lib/Net/Ping/t/400_ping_syn.t
deleted file mode 100644
index ae89800..0000000
--- a/lib/Net/Ping/t/400_ping_syn.t
+++ /dev/null
@@ -1,101 +0,0 @@
-BEGIN {
- if ($ENV{PERL_CORE}) {
- unless ($ENV{PERL_TEST_Net_Ping}) {
- print "1..0 # Skip: network dependent test\n";
- exit;
- }
- chdir 't' if -d 't';
- @INC = qw(../lib);
- }
- unless (eval "require Socket") {
- print "1..0 \# Skip: no Socket\n";
- exit;
- }
- unless (getservbyname('echo', 'tcp')) {
- print "1..0 \# Skip: no echo port\n";
- exit;
- }
- unless (getservbyname('http', 'tcp')) {
- print "1..0 \# Skip: no http port\n";
- exit;
- }
-}
-
-# Remote network test using syn protocol.
-#
-# NOTE:
-# Network connectivity will be required for all tests to pass.
-# Firewalls may also cause some tests to fail, so test it
-# on a clear network. If you know you do not have a direct
-# connection to remote networks, but you still want the tests
-# to pass, use the following:
-#
-# $ PERL_CORE=1 make test
-
-# Try a few remote servers
-my $webs = {
- # Hopefully this is never a routeable host
- "172.29.249.249" => 0,
-
- # Hopefully all these web ports are open
- "www.geocities.com." => 1,
- "www.freeservers.com." => 1,
- "yahoo.com." => 1,
- "www.yahoo.com." => 1,
- "www.about.com." => 1,
- "www.microsoft.com." => 1,
- "127.0.0.1" => 1,
-};
-
-use strict;
-use Test;
-use Net::Ping;
-plan tests => ((keys %{ $webs }) * 2 + 3);
-
-# Everything loaded fine
-ok 1;
-
-my $can_alarm = eval {alarm 0; 1;};
-
-sub Alarm {
- alarm(shift) if $can_alarm;
-}
-
-Alarm(50);
-$SIG{ALRM} = sub {
- ok 0;
- die "TIMED OUT!";
-};
-
-my $p = new Net::Ping "syn", 10;
-
-# new() worked?
-ok !!$p;
-
-# Change to use the more common web port.
-# (Make sure getservbyname works in scalar context.)
-ok ($p -> {port_num} = getservbyname("http", "tcp"));
-
-foreach my $host (keys %{ $webs }) {
- # ping() does dns resolution and
- # only sends the SYN at this point
- Alarm(50); # (Plenty for a DNS lookup)
- if (!ok $p -> ping($host)) {
- print STDERR "CANNOT RESOLVE $host $p->{bad}->{$host}\n";
- }
-}
-
-Alarm(20);
-while (my $host = $p->ack()) {
- if (!ok $webs->{$host}) {
- print STDERR "SUPPOSED TO BE DOWN: http://$host/\n";
- }
- delete $webs->{$host};
-}
-
-Alarm(0);
-foreach my $host (keys %{ $webs }) {
- if (!ok !$webs->{$host}) {
- print STDERR "DOWN: http://$host/ [",($p->{bad}->{$host} || ""),"]\n";
- }
-}
diff --git a/lib/Net/Ping/t/410_syn_host.t b/lib/Net/Ping/t/410_syn_host.t
deleted file mode 100644
index 8374b20..0000000
--- a/lib/Net/Ping/t/410_syn_host.t
+++ /dev/null
@@ -1,105 +0,0 @@
-# Same as 400_ping_syn.t but testing ack( $host ) instead of ack( ).
-
-BEGIN {
- if ($ENV{PERL_CORE}) {
- unless ($ENV{PERL_TEST_Net_Ping}) {
- print "1..0 # Skip: network dependent test\n";
- exit;
- }
- chdir 't' if -d 't';
- @INC = qw(../lib);
- }
- unless (eval "require Socket") {
- print "1..0 \# Skip: no Socket\n";
- exit;
- }
- unless (getservbyname('echo', 'tcp')) {
- print "1..0 \# Skip: no echo port\n";
- exit;
- }
- unless (getservbyname('http', 'tcp')) {
- print "1..0 \# Skip: no http port\n";
- exit;
- }
-}
-
-# Remote network test using syn protocol.
-#
-# NOTE:
-# Network connectivity will be required for all tests to pass.
-# Firewalls may also cause some tests to fail, so test it
-# on a clear network. If you know you do not have a direct
-# connection to remote networks, but you still want the tests
-# to pass, use the following:
-#
-# $ PERL_CORE=1 make test
-
-# Try a few remote servers
-my $webs = {
- # Hopefully this is never a routeable host
- "172.29.249.249" => 0,
-
- # Hopefully all these web ports are open
- "www.geocities.com." => 1,
- "www.freeservers.com." => 1,
- "yahoo.com." => 1,
- "www.yahoo.com." => 1,
- "www.about.com." => 1,
- "www.microsoft.com." => 1,
- "127.0.0.1" => 1,
-};
-
-use strict;
-use Test;
-use Net::Ping;
-plan tests => ((keys %{ $webs }) * 2 + 3);
-
-# Everything loaded fine
-ok 1;
-
-my $can_alarm = eval {alarm 0; 1;};
-
-sub Alarm {
- alarm(shift) if $can_alarm;
-}
-
-Alarm(50);
-$SIG{ALRM} = sub {
- ok 0;
- die "TIMED OUT!";
-};
-
-my $p = new Net::Ping "syn", 10;
-
-# new() worked?
-ok !!$p;
-
-# Change to use the more common web port.
-# (Make sure getservbyname works in scalar context.)
-ok ($p -> {port_num} = getservbyname("http", "tcp"));
-
-foreach my $host (keys %{ $webs }) {
- # ping() does dns resolution and
- # only sends the SYN at this point
- Alarm(50); # (Plenty for a DNS lookup)
- if (!ok($p -> ping($host))) {
- print STDERR "CANNOT RESOLVE $host $p->{bad}->{$host}\n";
- }
-}
-
-Alarm(20);
-foreach my $host (sort keys %{ $webs }) {
- my $on = $p->ack($host);
- if (!ok (($on && $webs->{$host}) ||
- (!$on && !$webs->{$host}))) {
- if ($on) {
- print STDERR "SUPPOSED TO BE DOWN: http://$host/\n";
- } else {
- print STDERR "DOWN: http://$host/ [",($p->{bad}->{$host} || ""),"]\n";
- }
- }
- delete $webs->{$host};
- Alarm(20);
-}
-
-Alarm(0);
--
Perl5 Master Repository
-
[perl.git] branch blead, updated. GitLive-blead-2012-ga79d563
by Nicholas Clark