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