[pkg-nagios-changes] [Git][nagios-team/pkg-libmonitoring-livestatus-perl][master] 12 commits: New upstream version 0.78
Bas Couwenberg
gitlab at salsa.debian.org
Sat May 5 19:00:23 BST 2018
Bas Couwenberg pushed to branch master at Debian Nagios Maintainer Group / pkg-libmonitoring-livestatus-perl
Commits:
9508a72f by Alexander Wirt at 2017-01-02T06:52:58+01:00
New upstream version 0.78
- - - - -
4135c575 by Bas Couwenberg at 2018-05-05T19:25:13+02:00
New upstream version 0.80
- - - - -
97237cbc by Bas Couwenberg at 2018-05-05T19:31:40+02:00
Merge tag 'upstream/0.80'
Upstream version 0.80
- - - - -
bd95a4f5 by Bas Couwenberg at 2018-05-05T19:32:20+02:00
New upstream release.
- - - - -
f087ec71 by Bas Couwenberg at 2018-05-05T19:48:18+02:00
Change libjson-xs-perl (build) dependency to libcpanel-json-xs-perl.
- - - - -
69820ce5 by Bas Couwenberg at 2018-05-05T19:48:31+02:00
Drop patches, applied upstream.
- - - - -
915a1128 by Bas Couwenberg at 2018-05-05T19:48:33+02:00
Add 'Testsuite: autopkgtest-pkg-perl' to control file.
- - - - -
5871ac8b by Bas Couwenberg at 2018-05-05T19:48:33+02:00
Update Vcs-* URLs for Salsa.
- - - - -
93139a4e by Bas Couwenberg at 2018-05-05T19:48:33+02:00
Add gbp.conf to use pristine-tar by default.
- - - - -
42172ec7 by Bas Couwenberg at 2018-05-05T19:48:33+02:00
Add upstream metadata.
- - - - -
951a249a by Bas Couwenberg at 2018-05-05T19:48:33+02:00
Bump Standards-Version to 4.1.4, no changes.
- - - - -
306fc83f by Bas Couwenberg at 2018-05-05T19:56:20+02:00
Set distribution to unstable.
- - - - -
24 changed files:
- Changes
- META.yml
- Makefile.PL
- debian/changelog
- debian/control
- + debian/gbp.conf
- − debian/patches/netcat-startup.patch
- − debian/patches/series
- + debian/upstream/metadata
- inc/Module/AutoInstall.pm
- inc/Module/Install.pm
- inc/Module/Install/AutoInstall.pm
- inc/Module/Install/Base.pm
- inc/Module/Install/Can.pm
- inc/Module/Install/Fetch.pm
- inc/Module/Install/Include.pm
- inc/Module/Install/Makefile.pm
- inc/Module/Install/Metadata.pm
- inc/Module/Install/Win32.pm
- inc/Module/Install/WriteAll.pm
- lib/Monitoring/Livestatus.pm
- lib/Monitoring/Livestatus/INET.pm
- t/20-Monitoring-Livestatus-test_socket.t
- t/23-Monitoring-Livestatus-BigData.t
Changes:
=====================================
Changes
=====================================
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
Revision history for Perl extension Monitoring::Livestatus.
+0.80 Fri Jan 26 08:24:00 CET 2018
+ - support ipv6 connections
+ - change to Cpanel::JSON::XS
+
0.78 Fri Dec 23 17:09:35 CET 2016
- fix spelling errors (#5)
=====================================
META.yml
=====================================
--- a/META.yml
+++ b/META.yml
@@ -8,7 +8,7 @@ configure_requires:
ExtUtils::MakeMaker: 6.59
distribution_type: module
dynamic_config: 1
-generated_by: 'Module::Install version 1.14'
+generated_by: 'Module::Install version 1.17'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -20,11 +20,11 @@ no_index:
- inc
- t
requires:
+ Cpanel::JSON::XS: 0
Digest::MD5: 0
Encode: 0
- IO::Socket::INET: 0
+ IO::Socket::IP: 0
IO::Socket::UNIX: 0
- JSON::XS: 0
Test::More: '0.87'
perl: 5.6.0
utf8: 0
@@ -33,4 +33,4 @@ resources:
homepage: http://search.cpan.org/dist/Monitoring-Livestatus/
license: http://dev.perl.org/licenses/
repository: http://github.com/sni/Monitoring-Livestatus
-version: '0.78'
+version: '0.80'
=====================================
Makefile.PL
=====================================
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -15,12 +15,12 @@ resources(
requires 'IO::Socket::UNIX';
-requires 'IO::Socket::INET';
+requires 'IO::Socket::IP';
requires 'Digest::MD5';
requires 'Test::More' => '0.87';
requires 'utf8';
requires 'Encode';
-requires 'JSON::XS';
+requires 'Cpanel::JSON::XS';
# test requirements
# these requirements still make it into the META.yml, so they are commented so far
=====================================
debian/changelog
=====================================
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,17 @@
+libmonitoring-livestatus-perl (0.80-1) unstable; urgency=medium
+
+ * Team upload.
+ * New upstream release.
+ * Change libjson-xs-perl (build) dependency to libcpanel-json-xs-perl.
+ * Drop patches, applied upstream.
+ * Add 'Testsuite: autopkgtest-pkg-perl' to control file.
+ * Update Vcs-* URLs for Salsa.
+ * Add gbp.conf to use pristine-tar by default.
+ * Add upstream metadata.
+ * Bump Standards-Version to 4.1.4, no changes.
+
+ -- Bas Couwenberg <sebastic at debian.org> Sat, 05 May 2018 19:55:57 +0200
+
libmonitoring-livestatus-perl (0.78-1) unstable; urgency=medium
* Team upload.
=====================================
debian/control
=====================================
--- a/debian/control
+++ b/debian/control
@@ -4,20 +4,21 @@ Uploaders: Alexander Wirt <formorer at debian.org>
Section: perl
Priority: optional
Build-Depends: debhelper (>= 9)
-Build-Depends-Indep: libjson-xs-perl,
+Build-Depends-Indep: libcpanel-json-xs-perl,
netcat,
perl,
procps
-Standards-Version: 3.9.8
-Vcs-Browser: https://anonscm.debian.org/cgit/pkg-nagios/pkg-libmonitoring-livestatus-perl.git
-Vcs-Git: https://anonscm.debian.org/git/pkg-nagios/pkg-libmonitoring-livestatus-perl.git
+Standards-Version: 4.1.4
+Vcs-Browser: https://salsa.debian.org/nagios-team/pkg-libmonitoring-livestatus-perl
+Vcs-Git: https://salsa.debian.org/nagios-team/pkg-libmonitoring-livestatus-perl.git
Homepage: https://metacpan.org/release/Monitoring-Livestatus
+Testsuite: autopkgtest-pkg-perl
Package: libmonitoring-livestatus-perl
Architecture: all
-Depends: ${misc:Depends},
+Depends: libcpanel-json-xs-perl,
${perl:Depends},
- libjson-xs-perl
+ ${misc:Depends}
Description: Perl API for check_mk livestatus to access runtime
Monitoring::Livestatus connects via socket/tcp to the check_mk livestatus
addon for Nagios and Icinga. You first have to install and activate the
=====================================
debian/gbp.conf
=====================================
--- /dev/null
+++ b/debian/gbp.conf
@@ -0,0 +1,16 @@
+[DEFAULT]
+
+# The default name for the upstream branch is "upstream".
+# Change it if the name is different (for instance, "master").
+upstream-branch = upstream
+
+# The default name for the Debian branch is "master".
+# Change it if the name is different (for instance, "debian/unstable").
+debian-branch = master
+
+# git-import-orig uses the following names for the upstream tags.
+# Change the value if you are not using git-import-orig
+upstream-tag = upstream/%(version)s
+
+# Always use pristine-tar.
+pristine-tar = True
=====================================
debian/patches/netcat-startup.patch deleted
=====================================
--- a/debian/patches/netcat-startup.patch
+++ /dev/null
@@ -1,16 +0,0 @@
-Description: Increase sleep to allow netcat to start.
-Author: Bas Couwenberg <sebastic at debian.org>
-Forwarded: https://github.com/sni/Monitoring-Livestatus/pull/6
-Applied-Upstream: https://github.com/sni/Monitoring-Livestatus/commit/4af6d071ff5977c6fe7042597130f78fbebda10c
-
---- a/t/23-Monitoring-Livestatus-BigData.t
-+++ b/t/23-Monitoring-Livestatus-BigData.t
-@@ -42,7 +42,7 @@ ok($mem_start, sprintf('memory at start:
- ##########################################################
- # start netcat
- `netcat -vvv -w 3 -l -p $testport >/dev/null 2>&1 < $testfile &`;
--sleep(0.1);
-+sleep(1);
- ok(1, "netcat started");
-
- ##########################################################
=====================================
debian/patches/series deleted
=====================================
--- a/debian/patches/series
+++ /dev/null
@@ -1 +0,0 @@
-netcat-startup.patch
=====================================
debian/upstream/metadata
=====================================
--- /dev/null
+++ b/debian/upstream/metadata
@@ -0,0 +1,9 @@
+---
+Archive: CPAN
+Bug-Database: http://github.com/sni/Monitoring-Livestatus/issues
+Bug-Submit: http://github.com/sni/Monitoring-Livestatus/issues/new
+Changelog: https://metacpan.org/changes/distribution/Monitoring-Livestatus
+Contact: Sven Nierlein <nierlein at cpan.org>
+Name: Monitoring-Livestatus
+Repository: https://github.com/sni/Monitoring-Livestatus.git
+Repository-Browse: https://github.com/sni/Monitoring-Livestatus
=====================================
inc/Module/AutoInstall.pm
=====================================
--- a/inc/Module/AutoInstall.pm
+++ b/inc/Module/AutoInstall.pm
@@ -8,7 +8,7 @@ use ExtUtils::MakeMaker ();
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.14';
+ $VERSION = '1.17';
}
# special map on pre-defined feature sets
@@ -537,7 +537,7 @@ sub _install_cpan {
while ( my ( $opt, $arg ) = splice( @config, 0, 2 ) ) {
( $args{$opt} = $arg, next )
if $opt =~ /^(?:force|notest)$/; # pseudo-option
- $CPAN::Config->{$opt} = $arg;
+ $CPAN::Config->{$opt} = $opt eq 'urllist' ? [$arg] : $arg;
}
if ($args{notest} && (not CPAN::Shell->can('notest'))) {
=====================================
inc/Module/Install.pm
=====================================
--- a/inc/Module/Install.pm
+++ b/inc/Module/Install.pm
@@ -31,7 +31,7 @@ BEGIN {
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '1.14';
+ $VERSION = '1.17';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -244,6 +244,8 @@ sub new {
}
return $args{_self} if $args{_self};
+ $base_path = VMS::Filespec::unixify($base_path) if $^O eq 'VMS';
+
$args{dispatch} ||= 'Admin';
$args{prefix} ||= 'inc';
$args{author} ||= ($^O eq 'VMS' ? '_author' : '.author');
@@ -322,7 +324,7 @@ sub find_extensions {
my ($self, $path) = @_;
my @found;
- File::Find::find( sub {
+ File::Find::find( {no_chdir => 1, wanted => sub {
my $file = $File::Find::name;
return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
my $subpath = $1;
@@ -336,7 +338,7 @@ sub find_extensions {
# correctly. Otherwise, root through the file to locate the case-preserved
# version of the package name.
if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
- my $content = Module::Install::_read($subpath . '.pm');
+ my $content = Module::Install::_read($File::Find::name);
my $in_pod = 0;
foreach ( split /\n/, $content ) {
$in_pod = 1 if /^=\w/;
@@ -351,7 +353,7 @@ sub find_extensions {
}
push @found, [ $file, $pkg ];
- }, $path ) if -d $path;
+ }}, $path ) if -d $path;
@found;
}
@@ -373,8 +375,6 @@ sub _caller {
return $call;
}
-# Done in evals to avoid confusing Perl::MinimumVersion
-eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
sub _read {
local *FH;
open( FH, '<', $_[0] ) or die "open($_[0]): $!";
@@ -383,16 +383,6 @@ sub _read {
close FH or die "close($_[0]): $!";
return $string;
}
-END_NEW
-sub _read {
- local *FH;
- open( FH, "< $_[0]" ) or die "open($_[0]): $!";
- binmode FH;
- my $string = do { local $/; <FH> };
- close FH or die "close($_[0]): $!";
- return $string;
-}
-END_OLD
sub _readperl {
my $string = Module::Install::_read($_[0]);
@@ -413,8 +403,6 @@ sub _readpod {
return $string;
}
-# Done in evals to avoid confusing Perl::MinimumVersion
-eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
sub _write {
local *FH;
open( FH, '>', $_[0] ) or die "open($_[0]): $!";
@@ -424,17 +412,6 @@ sub _write {
}
close FH or die "close($_[0]): $!";
}
-END_NEW
-sub _write {
- local *FH;
- open( FH, "> $_[0]" ) or die "open($_[0]): $!";
- binmode FH;
- foreach ( 1 .. $#_ ) {
- print FH $_[$_] or die "print($_[0]): $!";
- }
- close FH or die "close($_[0]): $!";
-}
-END_OLD
# _version is for processing module versions (eg, 1.03_05) not
# Perl versions (eg, 5.8.1).
=====================================
inc/Module/Install/AutoInstall.pm
=====================================
--- a/inc/Module/Install/AutoInstall.pm
+++ b/inc/Module/Install/AutoInstall.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.14';
+ $VERSION = '1.17';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
=====================================
inc/Module/Install/Base.pm
=====================================
--- a/inc/Module/Install/Base.pm
+++ b/inc/Module/Install/Base.pm
@@ -4,7 +4,7 @@ package Module::Install::Base;
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.14';
+ $VERSION = '1.17';
}
# Suspend handler for "redefined" warnings
=====================================
inc/Module/Install/Can.pm
=====================================
--- a/inc/Module/Install/Can.pm
+++ b/inc/Module/Install/Can.pm
@@ -8,7 +8,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.14';
+ $VERSION = '1.17';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -121,6 +121,15 @@ END_C
# Can we locate a (the) C compiler
sub can_cc {
my $self = shift;
+
+ if ($^O eq 'VMS') {
+ require ExtUtils::CBuilder;
+ my $builder = ExtUtils::CBuilder->new(
+ quiet => 1,
+ );
+ return $builder->have_compiler;
+ }
+
my @chunks = split(/ /, $Config::Config{cc}) or return;
# $Config{cc} may contain args; try to find out the program part
@@ -151,4 +160,4 @@ if ( $^O eq 'cygwin' ) {
__END__
-#line 236
+#line 245
=====================================
inc/Module/Install/Fetch.pm
=====================================
--- a/inc/Module/Install/Fetch.pm
+++ b/inc/Module/Install/Fetch.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.14';
+ $VERSION = '1.17';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
=====================================
inc/Module/Install/Include.pm
=====================================
--- a/inc/Module/Install/Include.pm
+++ b/inc/Module/Install/Include.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.14';
+ $VERSION = '1.17';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
=====================================
inc/Module/Install/Makefile.pm
=====================================
--- a/inc/Module/Install/Makefile.pm
+++ b/inc/Module/Install/Makefile.pm
@@ -8,7 +8,7 @@ use Fcntl qw/:flock :seek/;
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.14';
+ $VERSION = '1.17';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
=====================================
inc/Module/Install/Metadata.pm
=====================================
--- a/inc/Module/Install/Metadata.pm
+++ b/inc/Module/Install/Metadata.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.14';
+ $VERSION = '1.17';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
=====================================
inc/Module/Install/Win32.pm
=====================================
--- a/inc/Module/Install/Win32.pm
+++ b/inc/Module/Install/Win32.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.14';
+ $VERSION = '1.17';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
=====================================
inc/Module/Install/WriteAll.pm
=====================================
--- a/inc/Module/Install/WriteAll.pm
+++ b/inc/Module/Install/WriteAll.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.14';
+ $VERSION = '1.17';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
=====================================
lib/Monitoring/Livestatus.pm
=====================================
--- a/lib/Monitoring/Livestatus.pm
+++ b/lib/Monitoring/Livestatus.pm
@@ -6,13 +6,13 @@ use warnings;
use Data::Dumper qw/Dumper/;
use Carp qw/carp croak confess/;
use Digest::MD5 qw(md5_hex);
-use JSON::XS ();
+use Cpanel::JSON::XS ();
use Storable qw/dclone/;
use Monitoring::Livestatus::INET qw//;
use Monitoring::Livestatus::UNIX qw//;
-our $VERSION = '0.78';
+our $VERSION = '0.80';
# list of allowed options
@@ -856,7 +856,7 @@ sub _send {
if($status == 200) {
$result = $body;
} else {
- my $json_decoder = JSON::XS->new->utf8->relaxed;
+ my $json_decoder = Cpanel::JSON::XS->new->utf8->relaxed;
# fix json output
eval {
$result = $json_decoder->decode($body);
@@ -1166,7 +1166,7 @@ sub _read_socket_do {
if($json_decoder) {
$json_decoder->incr_reset;
} else {
- $json_decoder = JSON::XS->new->utf8->relaxed;
+ $json_decoder = Cpanel::JSON::XS->new->utf8->relaxed;
}
if($content_length > 0) {
if($status == 200) {
@@ -1188,6 +1188,9 @@ sub _read_socket_do {
}
$self->_close($sock) unless $self->{'keepalive'};
+ if($status >= 400 && $recv) {
+ $msg .= ' - '.$recv;
+ }
return($status, $msg, $recv);
}
=====================================
lib/Monitoring/Livestatus/INET.pm
=====================================
--- a/lib/Monitoring/Livestatus/INET.pm
+++ b/lib/Monitoring/Livestatus/INET.pm
@@ -3,7 +3,7 @@ use parent 'Monitoring::Livestatus';
use strict;
use warnings;
-use IO::Socket::INET ();
+use IO::Socket::IP ();
use Socket qw(IPPROTO_TCP TCP_NODELAY);
use Carp qw/confess croak/;
@@ -56,9 +56,9 @@ sub _open {
my $remaining = alarm($self->{'connect_timeout'});
eval {
local $SIG{'ALRM'} = sub { die("connection timeout"); };
- $sock = IO::Socket::INET->new(
+ $sock = IO::Socket::IP->new(
PeerAddr => $self->{'peer'},
- Type => IO::Socket::INET::SOCK_STREAM,
+ Type => IO::Socket::IP::SOCK_STREAM,
Timeout => $self->{'connect_timeout'},
);
if(!defined $sock || !$sock->connected()) {
=====================================
t/20-Monitoring-Livestatus-test_socket.t
=====================================
--- a/t/20-Monitoring-Livestatus-test_socket.t
+++ b/t/20-Monitoring-Livestatus-test_socket.t
@@ -6,7 +6,7 @@ use strict;
use Test::More;
use IO::Socket::UNIX qw( SOCK_STREAM SOMAXCONN );
use Data::Dumper;
-use JSON::XS;
+use Cpanel::JSON::XS;
BEGIN {
eval {require threads;};
@@ -16,9 +16,6 @@ BEGIN {
elsif( $^O eq 'MSWin32' ) {
plan skip_all => 'no sockets on windows';
}
- elsif( $^V ge v5.22 ) {
- plan skip_all => 'JSON::XS will not work in threaded perl >= 5.22';
- }
else{
plan tests => 109
}
=====================================
t/23-Monitoring-Livestatus-BigData.t
=====================================
--- a/t/23-Monitoring-Livestatus-BigData.t
+++ b/t/23-Monitoring-Livestatus-BigData.t
@@ -3,7 +3,27 @@
#########################
use strict;
-use Test::More tests => 13;
+
+my $netcat;
+BEGIN {
+ use Test::More;
+ for my $path (split(/:/mx, $ENV{'PATH'})) {
+ if(-x $path."/netcat") {
+ $netcat = $path."/netcat";
+ last;
+ }
+ }
+ if( $^O eq 'MSWin32' ) {
+ plan skip_all => 'no sockets on windows';
+ }
+ elsif(!$netcat) {
+ plan skip_all => 'no netcat found in path';
+ }
+ else {
+ plan tests => 13;
+ }
+};
+
BEGIN { use_ok('Monitoring::Livestatus') };
my $testport = 60123;
@@ -41,8 +61,8 @@ ok($mem_start, sprintf('memory at start: %.2f MB', $mem_start/1024));
##########################################################
# start netcat
-`netcat -vvv -w 3 -l -p $testport >/dev/null 2>&1 < $testfile &`;
-sleep(0.1);
+`$netcat -vvv -w 3 -l -p $testport >/dev/null 2>&1 < $testfile &`;
+sleep(1);
ok(1, "netcat started");
##########################################################
View it on GitLab: https://salsa.debian.org/nagios-team/pkg-libmonitoring-livestatus-perl/compare/ea6bfd137cfa5a2acadf6f464ef9d76fda9b530e...306fc83f845930c5dbe47d127e747b897b363721
---
View it on GitLab: https://salsa.debian.org/nagios-team/pkg-libmonitoring-livestatus-perl/compare/ea6bfd137cfa5a2acadf6f464ef9d76fda9b530e...306fc83f845930c5dbe47d127e747b897b363721
You're receiving this email because of your account on salsa.debian.org.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://alioth-lists.debian.net/pipermail/pkg-nagios-changes/attachments/20180505/557ef9a2/attachment-0001.html>
More information about the pkg-nagios-changes
mailing list