commit perl-PerlIO-via-Timeout for openSUSE:Factory
Hello community, here is the log from the commit of package perl-PerlIO-via-Timeout for openSUSE:Factory checked in at 2015-05-15 07:44:29 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-PerlIO-via-Timeout (Old) and /work/SRC/openSUSE:Factory/.perl-PerlIO-via-Timeout.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-PerlIO-via-Timeout" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-PerlIO-via-Timeout/perl-PerlIO-via-Timeout.changes 2014-03-19 09:41:03.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-PerlIO-via-Timeout.new/perl-PerlIO-via-Timeout.changes 2015-05-15 07:44:58.000000000 +0200 @@ -1,0 +2,8 @@ +Thu May 14 08:27:39 UTC 2015 - coolo@suse.com + +- updated to 0.30 + see /usr/share/doc/packages/perl-PerlIO-via-Timeout/Changes + + 0.30 2015-05-13 20:33:08CEST+0200 Europe/Amsterdam + +------------------------------------------------------------------- Old: ---- PerlIO-via-Timeout-0.29.tar.gz New: ---- PerlIO-via-Timeout-0.30.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-PerlIO-via-Timeout.spec ++++++ --- /var/tmp/diff_new_pack.Icn8KO/_old 2015-05-15 07:44:59.000000000 +0200 +++ /var/tmp/diff_new_pack.Icn8KO/_new 2015-05-15 07:44:59.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-PerlIO-via-Timeout # -# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,22 +17,21 @@ Name: perl-PerlIO-via-Timeout -Version: 0.29 +Version: 0.30 Release: 0 %define cpan_name PerlIO-via-Timeout -Summary: a PerlIO layer that adds read & write timeout to a handle +Summary: PerlIO layer that adds read & write timeout to a handle License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/PerlIO-via-Timeout/ -Source: http://www.cpan.org/authors/id/D/DA/DAMS/%{cpan_name}-%{version}.tar.gz +Source0: http://www.cpan.org/authors/id/D/DA/DAMS/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(Module::Build::Tiny) >= 0.030 +BuildRequires: perl(Module::Build::Tiny) >= 0.039 BuildRequires: perl(Test::TCP) -BuildRequires: perl(Time::Out) -Requires: perl(Time::Out) %{perl_requires} %description @@ -44,9 +43,9 @@ reading/writing. *WARNING* the handle won't timeout if you use 'sysread' or 'syswrite' on -it, because these functions works at a lower level. Hower if you're trying -to implement a timeout for a socket, see the IO::Socket::Timeout manpage -that implements exactly that. +it, because these functions works at a lower level. However if you're +trying to implement a timeout for a socket, see the IO::Socket::Timeout +manpage that implements exactly that. %prep %setup -q -n %{cpan_name}-%{version} ++++++ PerlIO-via-Timeout-0.29.tar.gz -> PerlIO-via-Timeout-0.30.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PerlIO-via-Timeout-0.29/Build.PL new/PerlIO-via-Timeout-0.30/Build.PL --- old/PerlIO-via-Timeout-0.29/Build.PL 2013-12-28 22:31:41.000000000 +0100 +++ new/PerlIO-via-Timeout-0.30/Build.PL 2015-05-13 20:33:15.000000000 +0200 @@ -1,3 +1,3 @@ use 5.006; -use Module::Build::Tiny 0.030; +use Module::Build::Tiny 0.039; Build_PL(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PerlIO-via-Timeout-0.29/Changes new/PerlIO-via-Timeout-0.30/Changes --- old/PerlIO-via-Timeout-0.29/Changes 2013-12-28 22:31:41.000000000 +0100 +++ new/PerlIO-via-Timeout-0.30/Changes 2015-05-13 20:33:15.000000000 +0200 @@ -1,3 +1,5 @@ +0.30 2015-05-13 20:33:08CEST+0200 Europe/Amsterdam + 0.29 2013-12-28 22:31:38 Europe/Paris 0.28 2013-12-24 03:50:48 Europe/Paris diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PerlIO-via-Timeout-0.29/MANIFEST new/PerlIO-via-Timeout-0.30/MANIFEST --- old/PerlIO-via-Timeout-0.29/MANIFEST 2013-12-28 22:31:41.000000000 +0100 +++ new/PerlIO-via-Timeout-0.30/MANIFEST 2015-05-13 20:33:15.000000000 +0200 @@ -1,3 +1,4 @@ +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.032. Build.PL Changes LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PerlIO-via-Timeout-0.29/META.yml new/PerlIO-via-Timeout-0.30/META.yml --- old/PerlIO-via-Timeout-0.29/META.yml 2013-12-28 22:31:41.000000000 +0100 +++ new/PerlIO-via-Timeout-0.30/META.yml 2015-05-13 20:33:15.000000000 +0200 @@ -9,10 +9,10 @@ Test::More: 0 Test::TCP: 0 configure_requires: - ExtUtils::MakeMaker: 6.30 - Module::Build::Tiny: 0.030 + ExtUtils::MakeMaker: 0 + Module::Build::Tiny: 0.039 dynamic_config: 0 -generated_by: 'Dist::Zilla version 4.300039, CPAN::Meta::Converter version 2.132830' +generated_by: 'Dist::Zilla version 5.032, CPAN::Meta::Converter version 2.143240' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -21,12 +21,12 @@ provides: PerlIO::via::Timeout: file: lib/PerlIO/via/Timeout.pm - version: 0.29 + version: 0.30 requires: Exporter: 5.57 PerlIO::via: 0 - Scalar::Util: 0 - Time::Out: 0 + Time::HiRes: 0 resources: + bugtracker: https://github.com/dams/perlio-via-timeout/issues repository: git://github.com/dams/perlio-via-timeout.git -version: 0.29 +version: 0.30 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PerlIO-via-Timeout-0.29/Makefile.PL new/PerlIO-via-Timeout-0.30/Makefile.PL --- old/PerlIO-via-Timeout-0.29/Makefile.PL 2013-12-28 22:31:41.000000000 +0100 +++ new/PerlIO-via-Timeout-0.30/Makefile.PL 2015-05-13 20:33:15.000000000 +0200 @@ -1,14 +1,21 @@ +# +# This file is part of PerlIO-via-Timeout +# +# This software is copyright (c) 2013 by Damien "dams" Krotkine. +# +# This is free software; you can redistribute it and/or modify it under +# the same terms as the Perl 5 programming language system itself. +# # This Makefile.PL for PerlIO-via-Timeout was generated by -# Dist::Zilla::Plugin::MakeMaker::Fallback 0.005. -# Don't edit it but the dist.ini used to construct it. +# Dist::Zilla::Plugin::MakeMaker::Fallback 0.005 +# and Dist::Zilla::Plugin::MakeMaker::Awesome 0.33. +# Don't edit it but the dist.ini and plugins used to construct it. use strict; use warnings; BEGIN { my %configure_requires = ( - 'ExtUtils::MakeMaker' => '6.30', - 'Module::Build::Tiny' => '0.030', ); my @missing = grep { @@ -60,19 +67,14 @@ } } - - -use ExtUtils::MakeMaker 6.30; - - +use ExtUtils::MakeMaker; my %WriteMakefileArgs = ( "ABSTRACT" => "a PerlIO layer that adds read & write timeout to a handle", "AUTHOR" => "Damien \"dams\" Krotkine", - "BUILD_REQUIRES" => {}, "CONFIGURE_REQUIRES" => { - "ExtUtils::MakeMaker" => "6.30", - "Module::Build::Tiny" => "0.030" + "ExtUtils::MakeMaker" => 0, + "Module::Build::Tiny" => "0.039" }, "DISTNAME" => "PerlIO-via-Timeout", "EXE_FILES" => [], @@ -81,8 +83,7 @@ "PREREQ_PM" => { "Exporter" => "5.57", "PerlIO::via" => 0, - "Scalar::Util" => 0, - "Time::Out" => 0 + "Time::HiRes" => 0 }, "TEST_REQUIRES" => { "File::Spec" => 0, @@ -91,43 +92,32 @@ "Test::More" => 0, "Test::TCP" => 0 }, - "VERSION" => "0.29", + "VERSION" => "0.30", "test" => { "TESTS" => "t/*.t" } ); +my %FallbackPrereqs = ( + "Exporter" => "5.57", + "ExtUtils::MakeMaker" => 0, + "File::Spec" => 0, + "IO::Handle" => 0, + "IPC::Open3" => 0, + "Module::Build::Tiny" => "0.039", + "PerlIO::via" => 0, + "Test::More" => 0, + "Test::TCP" => 0, + "Time::HiRes" => 0 +); unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) { - my $tr = delete $WriteMakefileArgs{TEST_REQUIRES}; - my $br = $WriteMakefileArgs{BUILD_REQUIRES}; - for my $mod ( keys %$tr ) { - if ( exists $br->{$mod} ) { - $br->{$mod} = $tr->{$mod} if $tr->{$mod} > $br->{$mod}; - } - else { - $br->{$mod} = $tr->{$mod}; - } - } -} - -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}; - } - } + delete $WriteMakefileArgs{TEST_REQUIRES}; + delete $WriteMakefileArgs{BUILD_REQUIRES}; + $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs; } delete $WriteMakefileArgs{CONFIGURE_REQUIRES} unless eval { ExtUtils::MakeMaker->VERSION(6.52) }; WriteMakefile(%WriteMakefileArgs); - - - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PerlIO-via-Timeout-0.29/README new/PerlIO-via-Timeout-0.30/README --- old/PerlIO-via-Timeout-0.29/README 2013-12-28 22:31:41.000000000 +0100 +++ new/PerlIO-via-Timeout-0.30/README 2015-05-13 20:33:15.000000000 +0200 @@ -1,7 +1,7 @@ This archive contains the distribution PerlIO-via-Timeout, -version 0.29: +version 0.30: a PerlIO layer that adds read & write timeout to a handle @@ -11,3 +11,5 @@ the same terms as the Perl 5 programming language system itself. +This README file was generated by Dist::Zilla::Plugin::Readme v5.032. + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PerlIO-via-Timeout-0.29/dist.ini new/PerlIO-via-Timeout-0.30/dist.ini --- old/PerlIO-via-Timeout-0.29/dist.ini 2013-12-28 22:31:41.000000000 +0100 +++ new/PerlIO-via-Timeout-0.30/dist.ini 2015-05-13 20:33:15.000000000 +0200 @@ -15,9 +15,7 @@ ; -- fetch & generate files [GatherDir] -; -- don't include this Makefile.PL in the dist [PruneFiles] -filenames = Makefile.PL ; -- tests [Test::Compile] @@ -32,8 +30,7 @@ ; -- dependencies [Prereqs] PerlIO::via = 0 -Time::Out = 0 -Scalar::Util = 0 +Time::HiRes = 0 Exporter = 5.57 ; -- test dependencies diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PerlIO-via-Timeout-0.29/lib/PerlIO/via/Timeout.pm new/PerlIO-via-Timeout-0.30/lib/PerlIO/via/Timeout.pm --- old/PerlIO-via-Timeout-0.29/lib/PerlIO/via/Timeout.pm 2013-12-28 22:31:41.000000000 +0100 +++ new/PerlIO-via-Timeout-0.30/lib/PerlIO/via/Timeout.pm 2015-05-13 20:33:15.000000000 +0200 @@ -7,18 +7,15 @@ # the same terms as the Perl 5 programming language system itself. # package PerlIO::via::Timeout; -{ - $PerlIO::via::Timeout::VERSION = '0.29'; -} - +$PerlIO::via::Timeout::VERSION = '0.30'; # ABSTRACT: a PerlIO layer that adds read & write timeout to a handle require 5.008; +use Time::HiRes; use strict; use warnings; use Carp; use Errno qw(EBADF EINTR ETIMEDOUT); -use Scalar::Util qw(reftype blessed weaken); use Exporter 'import'; # gives you Exporter's import() method directly @@ -131,7 +128,7 @@ sub _can_read_write { my ($fh, $fd, $timeout, $type) = @_; # $type: 0 = read, 1 = write - my $initial = time; + my $initial = Time::HiRes::time; my $pending = $timeout; my $nfound; @@ -148,7 +145,7 @@ if ($nfound == -1) { $! == EINTR or croak(qq/select(2): '$!'/); - redo if !$timeout || ($pending = $timeout - (time - + redo if !$timeout || ($pending = $timeout - (Time::HiRes::time - $initial)) > 0; $nfound = 0; } @@ -191,19 +188,28 @@ $prop->{timeout_enabled}; } + +sub has_timeout_layer { + defined (my $fd = _get_fd($_[0])) + or return; + exists $fd2prop{$fd}; +} + 1; __END__ =pod +=encoding UTF-8 + =head1 NAME PerlIO::via::Timeout - a PerlIO layer that adds read & write timeout to a handle =head1 VERSION -version 0.29 +version 0.30 =head1 SYNOPSIS @@ -230,7 +236,7 @@ reading/writing. B<WARNING> the handle won't timeout if you use C<sysread> or C<syswrite> on it, -because these functions works at a lower level. Hower if you're trying to +because these functions works at a lower level. However if you're trying to implement a timeout for a socket, see LIO::Socket::Timeout that implements exactly that. @@ -248,9 +254,9 @@ =head2 write_timeout # set a write timeout of 2.5 seconds - timeout_layer($fh)->write_timeout(2.5); + write_timeout($fh, 2.5); # get the current write timeout - my $secs = timeout_layer($fh)->write_timeout(); + my $secs = write_timeout($fh); Getter / setter of the write timeout value. @@ -262,7 +268,7 @@ =head2 disable_timeout - timeout_layer($fh)->disable_timeout(); + disable_timeout($fh); Equivalent to setting timeout_enabled to 0 @@ -277,6 +283,15 @@ Getter / setter of the timeout enabled flag. +=head2 has_timeout_layer + + if (has_timeout_layer($fh)) { + # set a write timeout of 2.5 seconds + write_timeout($fh, 2.5); + } + +Returns wether the given filehandle is managed by PerlIO::via::Timeout. + =head1 SEE ALSO =over diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PerlIO-via-Timeout-0.29/t/release-distmeta.t new/PerlIO-via-Timeout-0.30/t/release-distmeta.t --- old/PerlIO-via-Timeout-0.29/t/release-distmeta.t 2013-12-28 22:31:41.000000000 +0100 +++ new/PerlIO-via-Timeout-0.30/t/release-distmeta.t 2015-05-13 20:33:15.000000000 +0200 @@ -15,9 +15,8 @@ } } +# This file was automatically generated by Dist::Zilla::Plugin::MetaTests. -use Test::More; +use Test::CPAN::Meta; -eval "use Test::CPAN::Meta"; -plan skip_all => "Test::CPAN::Meta required for testing META.yml" if $@; meta_yaml_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/PerlIO-via-Timeout-0.29/t/release-pod-coverage.t new/PerlIO-via-Timeout-0.30/t/release-pod-coverage.t --- old/PerlIO-via-Timeout-0.29/t/release-pod-coverage.t 2013-12-28 22:31:41.000000000 +0100 +++ new/PerlIO-via-Timeout-0.30/t/release-pod-coverage.t 2015-05-13 20:33:15.000000000 +0200 @@ -15,15 +15,9 @@ } } +# 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' }); ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: |- #./Build build flags=%{?_smp_mflags} --myflag #custom_test: |- #startserver && make test #ignore_requires: Bizarre::Module
participants (1)
-
root@hilbert.suse.de