r55610 - in /branches/upstream/libschedule-at-perl/current: At.pm Changes META.yml README t/t1.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Wed Apr  7 15:14:41 2010
New Revision: 55610

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55610
Log:
[svn-upgrade] Integrating new upstream version, libschedule-at-perl (1.10)

Modified:
    branches/upstream/libschedule-at-perl/current/At.pm
    branches/upstream/libschedule-at-perl/current/Changes
    branches/upstream/libschedule-at-perl/current/META.yml
    branches/upstream/libschedule-at-perl/current/README
    branches/upstream/libschedule-at-perl/current/t/t1.t

Modified: branches/upstream/libschedule-at-perl/current/At.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libschedule-at-perl/current/At.pm?rev=55610&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/At.pm (original)
+++ branches/upstream/libschedule-at-perl/current/At.pm Wed Apr  7 15:14:41 2010
@@ -2,13 +2,13 @@
 
 require 5.004;
 
-# Copyright (c) 1997-2008 Jose A. Rodriguez. All rights reserved.
+# Copyright (c) 1997-2010 Jose A. Rodriguez. All rights reserved.
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
 use vars qw($VERSION @ISA $TIME_FORMAT);
 
-$VERSION = '1.09';
+$VERSION = '1.10';
 
 ###############################################################################
 # Load configuration for this OS
@@ -51,13 +51,17 @@
 	if ($params{FILE}) {
 		return (system($command) / 256);
 	} else {
-		open (ATCMD, "| $command") or return 1;
+		# Ignore signal to die in case at commands fails
+		local $SIG{'PIPE'} = 'IGNORE';
+
+		open (ATCMD, "| $command");
 		print ATCMD "$TAGID$params{TAG}\n" if $params{TAG};
 
 		print ATCMD ref($params{COMMAND}) eq "ARRAY" ?
 			join("\n", @{$params{COMMAND}}) : $params{COMMAND};
                   
 		close (ATCMD);
+		return $?;
 	}
 
 	0;

Modified: branches/upstream/libschedule-at-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libschedule-at-perl/current/Changes?rev=55610&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/Changes (original)
+++ branches/upstream/libschedule-at-perl/current/Changes Wed Apr  7 15:14:41 2010
@@ -59,3 +59,8 @@
 1.09 Tue Dec 15 08:54:41 CET 2009
 	- Skip non supported OSs
 	- Added support for OpenBSD (Eric Olsen <herolsen AT alumni.upenn.edu>)
+
+1.10 Wed Apr  7 13:35:48 CEST 2010
+	- Fixed bug about reporting exit status on past submited jobs
+	Bug: https://rt.cpan.org/Ticket/Display.html?id=55891
+	(based on patch submited by JLMARTIN <jlmartinez AT capisde.com>)

Modified: branches/upstream/libschedule-at-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libschedule-at-perl/current/META.yml?rev=55610&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/META.yml (original)
+++ branches/upstream/libschedule-at-perl/current/META.yml Wed Apr  7 15:14:41 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Schedule-At
-version:             1.09
+version:             1.10
 abstract:            ~
 license:             ~
 author:              ~

Modified: branches/upstream/libschedule-at-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libschedule-at-perl/current/README?rev=55610&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/README (original)
+++ branches/upstream/libschedule-at-perl/current/README Wed Apr  7 15:14:41 2010
@@ -28,6 +28,7 @@
 		AIX
 		Dynix/ptx
 		FreeBSD
+		OpenBSD
 		Solaris 2.10
 		Linux
  

Modified: branches/upstream/libschedule-at-perl/current/t/t1.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libschedule-at-perl/current/t/t1.t?rev=55610&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/t/t1.t (original)
+++ branches/upstream/libschedule-at-perl/current/t/t1.t Wed Apr  7 15:14:41 2010
@@ -14,7 +14,7 @@
 
 if ($< == 0 || $> == 0 || $ENV{'AT_CAN_EXEC'}) {
 	$main::FULL_TEST = 1;
-	plan tests => 8;
+	plan tests => 9;
 } else {
 	plan tests => 1;
 }
@@ -88,3 +88,15 @@
 			($job->{TAG} || ''), "\n";
 	}
 }
+
+# Adding in the past fails in some at versions, check that!
+my $lastYear = (localtime)[5] + 1900 - 1;
+$rv = Schedule::At::add (
+        TIME => $lastYear . '01181530',
+        COMMAND => 'ls /thisIsACommand/',
+        TAG => '_TEST_pastTAG'
+);
+my %pastJobs = Schedule::At::readJobs(TAG => '_TEST_pastTAG');;
+listJobs();
+my $pastJobs = scalar(keys(%pastJobs));
+ok(($rv != 0 && $pastJobs == 0) || ($rv == 0 && $pastJobs != 0));