@@ -1,8 +1,18 @@
==================================================
-Changes from 2008-02-02 00:00:00 +0000 to present.
+Changes from 2009-05-13 00:00:00 +0000 to present.
==================================================
-----------------------------------------
+version 0.06 at 2014-05-12 10:15:34 +0000
+-----------------------------------------
+
+ Change: fbb3f40e61985d599b2cea5f20f1890b1be6e0a5
+ Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+ Date : 2014-05-12 11:15:34 +0000
+
+ Net::DNS removed a constant, implement it ourselves *sigh*
+
+-----------------------------------------
version 0.04 at 2013-01-31 15:55:04 +0000
-----------------------------------------
@@ -1,4 +1,4 @@
-This software is copyright (c) 2013 by Chris Williams, Hans Dieter Pearcey and Rocco Caputo.
+This software is copyright (c) 2014 by Chris Williams, Hans Dieter Pearcey and Rocco Caputo.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@ b) the "Artistic License"
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2013 by Chris Williams, Hans Dieter Pearcey and Rocco Caputo.
+This software is Copyright (c) 2014 by Chris Williams, Hans Dieter Pearcey and Rocco Caputo.
This is free software, licensed under:
@@ -22,7 +22,7 @@ This is free software, licensed under:
Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
- 51 Franklin St, Suite 500, Boston, MA 02110-1335 USA
+ 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
@@ -272,7 +272,7 @@ That's all there is to it!
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2013 by Chris Williams, Hans Dieter Pearcey and Rocco Caputo.
+This software is Copyright (c) 2014 by Chris Williams, Hans Dieter Pearcey and Rocco Caputo.
This is free software, licensed under:
@@ -1,3 +1,4 @@
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.016.
Changes
LICENSE
MANIFEST
@@ -6,7 +6,7 @@
"Rocco Caputo <rcaputo@cpan.org>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.300029, CPAN::Meta::Converter version 2.120921",
+ "generated_by" : "Dist::Zilla version 5.016, CPAN::Meta::Converter version 2.141170",
"license" : [
"perl_5"
],
@@ -35,6 +35,14 @@
"POE::Filter" : "1.311",
"perl" : "v5.6.0"
}
+ },
+ "test" : {
+ "requires" : {
+ "File::Spec" : "0",
+ "IO::Handle" : "0",
+ "IPC::Open3" : "0",
+ "Test::More" : "0"
+ }
}
},
"release_status" : "stable",
@@ -46,6 +54,6 @@
"web" : "https://github.com/bingos/poe-filter-dns-tcp"
}
},
- "version" : "0.04"
+ "version" : "0.06"
}
@@ -4,22 +4,26 @@ author:
- 'Chris Williams <chris@bingosnet.co.uk>'
- 'Hans Dieter Pearcey <hdp@cpan.org>'
- 'Rocco Caputo <rcaputo@cpan.org>'
-build_requires: {}
+build_requires:
+ File::Spec: '0'
+ IO::Handle: '0'
+ IPC::Open3: '0'
+ Test::More: '0'
configure_requires:
- ExtUtils::MakeMaker: 6.30
+ ExtUtils::MakeMaker: '6.30'
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.300029, CPAN::Meta::Converter version 2.120921'
+generated_by: 'Dist::Zilla version 5.016, CPAN::Meta::Converter version 2.141170'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: POE-Filter-DNS-TCP
requires:
- Net::DNS: 0.66
- Net::DNS::Packet: 0
- POE::Filter: 1.311
+ Net::DNS: '0.66'
+ Net::DNS::Packet: '0'
+ POE::Filter: '1.311'
perl: v5.6.0
resources:
homepage: https://github.com/bingos/poe-filter-dns-tcp
repository: https://github.com/bingos/poe-filter-dns-tcp.git
-version: 0.04
+version: '0.06'
@@ -1,4 +1,5 @@
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.016.
use strict;
use warnings;
@@ -24,24 +25,34 @@ my %WriteMakefileArgs = (
"Net::DNS::Packet" => 0,
"POE::Filter" => "1.311"
},
- "VERSION" => "0.04",
+ "TEST_REQUIRES" => {
+ "File::Spec" => 0,
+ "IO::Handle" => 0,
+ "IPC::Open3" => 0,
+ "Test::More" => 0
+ },
+ "VERSION" => "0.06",
"test" => {
"TESTS" => "t/*.t"
}
);
-unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
- my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
- my $pp = $WriteMakefileArgs{PREREQ_PM};
- for my $mod ( keys %$br ) {
- if ( exists $pp->{$mod} ) {
- $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
- }
- else {
- $pp->{$mod} = $br->{$mod};
- }
- }
+my %FallbackPrereqs = (
+ "File::Spec" => 0,
+ "IO::Handle" => 0,
+ "IPC::Open3" => 0,
+ "Net::DNS" => "0.66",
+ "Net::DNS::Packet" => 0,
+ "POE::Filter" => "1.311",
+ "Test::More" => 0
+);
+
+
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
+ delete $WriteMakefileArgs{TEST_REQUIRES};
+ delete $WriteMakefileArgs{BUILD_REQUIRES};
+ $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
@@ -2,7 +2,7 @@ NAME
POE::Filter::DNS::TCP - A POE Filter to handle DNS over TCP connections
VERSION
- version 0.04
+ version 0.06
SYNOPSIS
use POE::Filter::DNS::TCP;
@@ -42,7 +42,7 @@ AUTHORS
* Rocco Caputo <rcaputo@cpan.org>
COPYRIGHT AND LICENSE
- This software is copyright (c) 2013 by Chris Williams, Hans Dieter
+ This software is copyright (c) 2014 by Chris Williams, Hans Dieter
Pearcey and Rocco Caputo.
This is free software; you can redistribute it and/or modify it under
@@ -1,5 +1,5 @@
name = POE-Filter-DNS-TCP
-version = 0.04
+version = 0.06
author = Chris Williams <chris@bingosnet.co.uk>
author = Hans Dieter Pearcey <hdp@cpan.org>
author = Rocco Caputo <rcaputo@cpan.org>
@@ -1,8 +1,5 @@
package POE::Filter::DNS::TCP;
-{
- $POE::Filter::DNS::TCP::VERSION = '0.04';
-}
-
+$POE::Filter::DNS::TCP::VERSION = '0.06';
#ABSTRACT: A POE Filter to handle DNS over TCP connections
use strict;
@@ -16,6 +13,7 @@ use bytes;
sub FRAMING_BUFFER () { 0 }
sub EXPECTED_SIZE () { 1 }
+sub INT16SZ () { 2 }
sub new {
my $class = shift;
@@ -59,11 +57,11 @@ sub get_one {
sub _decoder {
my $data = shift;
- my $buf = substr $$data, 0, Net::DNS::INT16SZ();
+ my $buf = substr $$data, 0, INT16SZ;
return unless length $buf;
my ($len) = unpack 'n', $buf;
return unless $len;
- substr $$data, 0, Net::DNS::INT16SZ(), '';
+ substr $$data, 0, INT16SZ, '';
return $len;
}
@@ -92,13 +90,15 @@ __END__
=pod
+=encoding UTF-8
+
=head1 NAME
POE::Filter::DNS::TCP - A POE Filter to handle DNS over TCP connections
=head1 VERSION
-version 0.04
+version 0.06
=head1 SYNOPSIS
@@ -115,6 +115,7 @@ received from or transmitted (respectively) over TCP as per RFC 1035.
=for Pod::Coverage FRAMING_BUFFER
EXPECTED_SIZE
+ INT16SZ
=head1 CONSTRUCTOR
@@ -170,7 +171,7 @@ Rocco Caputo <rcaputo@cpan.org>
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Chris Williams, Hans Dieter Pearcey and Rocco Caputo.
+This software is copyright (c) 2014 by Chris Williams, Hans Dieter Pearcey and Rocco Caputo.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -1,73 +1,50 @@
-#!perl
-
+use 5.006;
use strict;
use warnings;
-use Test::More;
+# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.040
+use Test::More tests => 1 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
-use File::Find;
-use File::Temp qw{ tempdir };
-my @modules;
-find(
- sub {
- return if $File::Find::name !~ /\.pm\z/;
- my $found = $File::Find::name;
- $found =~ s{^lib/}{};
- $found =~ s{[/\\]}{::}g;
- $found =~ s/\.pm$//;
- # nothing to skip
- push @modules, $found;
- },
- 'lib',
+my @module_files = (
+ 'POE/Filter/DNS/TCP.pm'
);
-sub _find_scripts {
- my $dir = shift @_;
-
- my @found_scripts = ();
- find(
- sub {
- return unless -f;
- my $found = $File::Find::name;
- # nothing to skip
- open my $FH, '<', $_ or do {
- note( "Unable to open $found in ( $! ), skipping" );
- return;
- };
- my $shebang = <$FH>;
- return unless $shebang =~ /^#!.*?\bperl\b\s*$/;
- push @found_scripts, $found;
- },
- $dir,
- );
-
- return @found_scripts;
-}
-my @scripts;
-do { push @scripts, _find_scripts($_) if -d $_ }
- for qw{ bin script scripts };
-my $plan = scalar(@modules) + scalar(@scripts);
-$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run");
+# no fake home requested
+
+my $inc_switch = -d 'blib' ? '-Mblib' : '-Ilib';
+
+use File::Spec;
+use IPC::Open3;
+use IO::Handle;
+
+open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
+my @warnings;
+for my $lib (@module_files)
{
- # fake home for cpan-testers
- # no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 );
-
- like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" )
- for sort @modules;
-
- SKIP: {
- eval "use Test::Script 1.05; 1;";
- skip "Test::Script needed to test script compilation", scalar(@scripts) if $@;
- foreach my $file ( @scripts ) {
- my $script = $file;
- $script =~ s!.*/!!;
- script_compiles( $file, "$script script compiles" );
- }
+ # see L<perlfaq8/How can I capture STDERR from an external command?>
+ my $stderr = IO::Handle->new;
+
+ my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q[$lib]");
+ binmode $stderr, ':crlf' if $^O eq 'MSWin32';
+ my @_warnings = <$stderr>;
+ waitpid($pid, 0);
+ is($?, 0, "$lib loaded ok");
+
+ if (@_warnings)
+ {
+ warn @_warnings;
+ push @warnings, @_warnings;
}
}
+
+
+
+is(scalar(@warnings), 0, 'no warnings found') if $ENV{AUTHOR_TESTING};
+
+
@@ -7,15 +7,9 @@ BEGIN {
}
}
+# This file was automatically generated by Dist::Zilla::Plugin::PodCoverageTests.
-use Test::More;
-
-eval "use Test::Pod::Coverage 1.08";
-plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage"
- if $@;
-
-eval "use Pod::Coverage::TrustPod";
-plan skip_all => "Pod::Coverage::TrustPod required for testing POD coverage"
- if $@;
+use Test::Pod::Coverage 1.08;
+use Pod::Coverage::TrustPod;
all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' });
@@ -7,9 +7,8 @@ BEGIN {
}
}
+# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
use Test::More;
-
-eval "use Test::Pod 1.41";
-plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
+use Test::Pod 1.41;
all_pod_files_ok();