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 - [email protected]
+
+- 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 L<IO::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
