r76796 - in /branches/upstream/libsys-sigaction-perl/current: Changes META.yml lib/Sys/SigAction.pm t/timeout.t
ghedo-guest at users.alioth.debian.org
ghedo-guest at users.alioth.debian.org
Thu Jun 30 13:06:50 UTC 2011
Author: ghedo-guest
Date: Thu Jun 30 13:06:41 2011
New Revision: 76796
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76796
Log:
[svn-upgrade] new version libsys-sigaction-perl (0.14)
Modified:
branches/upstream/libsys-sigaction-perl/current/Changes
branches/upstream/libsys-sigaction-perl/current/META.yml
branches/upstream/libsys-sigaction-perl/current/lib/Sys/SigAction.pm
branches/upstream/libsys-sigaction-perl/current/t/timeout.t
Modified: branches/upstream/libsys-sigaction-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-sigaction-perl/current/Changes?rev=76796&op=diff
==============================================================================
--- branches/upstream/libsys-sigaction-perl/current/Changes (original)
+++ branches/upstream/libsys-sigaction-perl/current/Changes Thu Jun 30 13:06:41 2011
@@ -8,8 +8,15 @@
Revision history for Sys::SigAction.
-=head2 Changes in Sys::SigAction 0.12 22 Jun 2011
+=head2 Changes in Sys::SigAction 0.14 26 Jun 2011
+Additional fix for timeout.t on darwin OSes: Use Time::HiRes::time() instead of
+Time:HiRes::clock_gettimeofday(). Should have been done this way in the first place.
+Put "use strict" back.
+
+=head2 Changes in Sys::SigAction 0.13 23 Jun 2011
+
+No functional changes. Fix for test timeout.t.
Fix strict undefined symbol error in timeout.t, when Time::HiRes is not present.
Not sure if constant pragma will exist in all supported perl versions,
so, we just commented out the use strict in this test.
Modified: branches/upstream/libsys-sigaction-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-sigaction-perl/current/META.yml?rev=76796&op=diff
==============================================================================
--- branches/upstream/libsys-sigaction-perl/current/META.yml (original)
+++ branches/upstream/libsys-sigaction-perl/current/META.yml Thu Jun 30 13:06:41 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Sys-SigAction
-version: 0.13
+version: 0.14
abstract: Perl extension for Consistent Signal Handling
author:
- Lincoln A. Baxter <lab-at-lincolnbaxter-dot-com>
Modified: branches/upstream/libsys-sigaction-perl/current/lib/Sys/SigAction.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-sigaction-perl/current/lib/Sys/SigAction.pm?rev=76796&op=diff
==============================================================================
--- branches/upstream/libsys-sigaction-perl/current/lib/Sys/SigAction.pm (original)
+++ branches/upstream/libsys-sigaction-perl/current/lib/Sys/SigAction.pm Thu Jun 30 13:06:41 2011
@@ -46,7 +46,7 @@
@ISA = qw( Exporter );
@EXPORT_OK = qw( set_sig_handler timeout_call sig_name sig_number sig_alarm );
-$VERSION = '0.13';
+$VERSION = '0.14';
use Config;
my %signame = ();
Modified: branches/upstream/libsys-sigaction-perl/current/t/timeout.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-sigaction-perl/current/t/timeout.t?rev=76796&op=diff
==============================================================================
--- branches/upstream/libsys-sigaction-perl/current/t/timeout.t (original)
+++ branches/upstream/libsys-sigaction-perl/current/t/timeout.t Thu Jun 30 13:06:41 2011
@@ -6,13 +6,13 @@
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More;
+my $do_subsec = 0;
+
BEGIN {
use_ok('Sys::SigAction');
if ( Sys::SigAction::have_hires() )
{
- eval "use Time::HiRes qw( clock_gettime CLOCK_REALTIME ); ";
- } else {
- eval "use constant CLOCK_REALTIME => 1;"; #get it defined
+ eval "use Time::HiRes qw( time );";
}
}
#########################
@@ -20,7 +20,7 @@
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
-#use strict;
+use strict;
#use warnings;
use Carp qw( carp cluck croak confess );
@@ -62,18 +62,19 @@
if ( Sys::SigAction::have_hires() )
{
+ diag( "testing fractional second timeout" );
$ret = 0;
my $btime;
my $etime;
eval {
- $btime = clock_gettime( CLOCK_REALTIME );
+ $btime = time();
$ret = Sys::SigAction::timeout_call( 0.1, \&forever );
};
if ( $@ )
{
print "hires: why did forever throw exception:" .Dumper( $@ );
}
- $etime = clock_gettime( CLOCK_REALTIME );
+ $etime = time();
# diag( $btime );
# diag( $etime );
# diag( ($etime-$btime) );
More information about the Pkg-perl-cvs-commits
mailing list