Changes

 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

@@ -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

@@ -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

+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@debian.org>  Sat, 05 May 2018 19:55:57 +0200
+
 libmonitoring-livestatus-perl (0.78-1) unstable; urgency=medium
 
   * Team upload.

debian/control

@@ -4,20 +4,21 @@ Uploaders: Alexander Wirt <formorer@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

+[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

-Description: Increase sleep to allow netcat to start.
-Author: Bas Couwenberg <sebastic@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

-netcat-startup.patch

debian/upstream/metadata

+---
+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@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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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;
 }