r55612 - in /trunk/libschedule-at-perl: At.pm Changes META.yml README debian/changelog debian/control debian/copyright debian/source/ debian/source/format t/t1.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Apr 7 15:21:19 UTC 2010
Author: jawnsy-guest
Date: Wed Apr 7 15:21:13 2010
New Revision: 55612
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55612
Log:
* Standards-Version 3.8.4 (no changes)
* Refresh copyright information
* Use new 3.0 (quilt) copyright format
* Rewrite control description
* Add myself to Uploaders and Copyright
Added:
trunk/libschedule-at-perl/debian/source/
trunk/libschedule-at-perl/debian/source/format
Modified:
trunk/libschedule-at-perl/At.pm
trunk/libschedule-at-perl/Changes
trunk/libschedule-at-perl/META.yml
trunk/libschedule-at-perl/README
trunk/libschedule-at-perl/debian/changelog
trunk/libschedule-at-perl/debian/control
trunk/libschedule-at-perl/debian/copyright
trunk/libschedule-at-perl/t/t1.t
Modified: trunk/libschedule-at-perl/At.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/At.pm?rev=55612&op=diff
==============================================================================
--- trunk/libschedule-at-perl/At.pm (original)
+++ trunk/libschedule-at-perl/At.pm Wed Apr 7 15:21:13 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: trunk/libschedule-at-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/Changes?rev=55612&op=diff
==============================================================================
--- trunk/libschedule-at-perl/Changes (original)
+++ trunk/libschedule-at-perl/Changes Wed Apr 7 15:21:13 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: trunk/libschedule-at-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/META.yml?rev=55612&op=diff
==============================================================================
--- trunk/libschedule-at-perl/META.yml (original)
+++ trunk/libschedule-at-perl/META.yml Wed Apr 7 15:21:13 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Schedule-At
-version: 1.09
+version: 1.10
abstract: ~
license: ~
author: ~
Modified: trunk/libschedule-at-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/README?rev=55612&op=diff
==============================================================================
--- trunk/libschedule-at-perl/README (original)
+++ trunk/libschedule-at-perl/README Wed Apr 7 15:21:13 2010
@@ -28,6 +28,7 @@
AIX
Dynix/ptx
FreeBSD
+ OpenBSD
Solaris 2.10
Linux
Modified: trunk/libschedule-at-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/debian/changelog?rev=55612&op=diff
==============================================================================
--- trunk/libschedule-at-perl/debian/changelog (original)
+++ trunk/libschedule-at-perl/debian/changelog Wed Apr 7 15:21:13 2010
@@ -1,10 +1,12 @@
-libschedule-at-perl (1.09-1) UNRELEASED; urgency=low
-
- Adds support for OpenBSD, no need to upload
- IGNORE-VERSION: 1.09-1
+libschedule-at-perl (1.10-1) UNRELEASED; urgency=low
[ Jonathan Yu ]
* New upstream release
+ * Standards-Version 3.8.4 (no changes)
+ * Refresh copyright information
+ * Use new 3.0 (quilt) copyright format
+ * Rewrite control description
+ * Add myself to Uploaders and Copyright
[ gregor herrmann ]
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
@@ -16,7 +18,7 @@
[ Nathan Handler ]
* debian/watch: Update to ignore development releases.
- -- Jonathan Yu <jawnsy at cpan.org> Wed, 16 Dec 2009 08:47:08 -0500
+ -- Jonathan Yu <jawnsy at cpan.org> Wed, 07 Apr 2010 11:55:27 -0400
libschedule-at-perl (1.08-1) unstable; urgency=low
Modified: trunk/libschedule-at-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/debian/control?rev=55612&op=diff
==============================================================================
--- trunk/libschedule-at-perl/debian/control (original)
+++ trunk/libschedule-at-perl/debian/control Wed Apr 7 15:21:13 2010
@@ -1,13 +1,13 @@
Source: libschedule-at-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7),
- at
-Build-Depends-Indep: perl (>= 5.8.8-12)
+Build-Depends: debhelper (>= 7), at
+Build-Depends-Indep: perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Vincent Danjean <vdanjean at debian.org>,
- Rene Mayorga <rmayorga at debian.org>, gregor herrmann <gregoa at debian.org>
-Standards-Version: 3.8.0
+ Rene Mayorga <rmayorga at debian.org>, gregor herrmann <gregoa at debian.org>,
+ Jonathan Yu <jawnsy at cpan.org>
+Standards-Version: 3.8.4
Homepage: http://search.cpan.org/dist/Schedule-At/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libschedule-at-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libchedule-atperl/
@@ -16,5 +16,6 @@
Architecture: all
Depends: ${perl:Depends}, ${misc:Depends}, at
Description: OS independent interface to the Unix 'at' command
- Schedule::At provides an OS independent interface to 'at', the Unix
- command that allows you to execute commands at a specified time.
+ Schedule::At is an Operating System-independent Perl interface to 'at', the
+ Unix command that allows you to execute commands at a specified time. It can
+ add new jobs to the queue, read current jobs and remove jobs.
Modified: trunk/libschedule-at-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/debian/copyright?rev=55612&op=diff
==============================================================================
--- trunk/libschedule-at-perl/debian/copyright (original)
+++ trunk/libschedule-at-perl/debian/copyright Wed Apr 7 15:21:13 2010
@@ -1,25 +1,31 @@
-Format-Specification: http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=226
-Upstream-Name: Schedule-At
-Upstream-Maintainer: Jose A. Rodriguez <josear+perl at ac.upc.es>
-Upstream-Source: http://search.cpan.org/dist/Schedule-At/
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135
+Maintainer: Jose A. Rodriguez <josear at ac.upc.es>
+Source: http://search.cpan.org/dist/Schedule-At/
+Name: Schedule-At
Files: *
-Copyright: © 1997-2008 by Jose A. Rodriguez
-License: GPL-1+ | Artistic
- This program is free software; you can redistribute it and/or modify it
- under the same terms as Perl itself.
- .
- Perl is distributed under the GNU General Public License, either version 1 or
- (at your option) any later version, and the Artistic License.
- .
+Copyright: 1997-2010, Jose A. Rodriguez <josear at ac.upc.es>
+License: Artistic or GPL-1+
Files: debian/*
-Copyright: © 2007-2008 Vincent Danjean <vdanjean at debian.org>
-License: GPL-1+ | Artistic
- This program is free software; you can redistribute it and/or modify it
- under the same terms as Perl itself.
+Copyright: 2010, Jonathan Yu <jawnsy at cpan.org>
+ 2008, Rene Mayorga <rmayorga at debian.org.sv>
+ 2008, gregor herrmann <gregoa at debian.org>
+ 2007-2008, Vincent Danjean <vdanjean at debian.org>
+License: Artistic or GPL-1+
-On Debian systems, the complete text of the GNU General Public License can be
-found in /usr/share/common-licenses/GPL and the Artistic License in
-/usr/share/common-licenses/Artistic.
+License: Artistic
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ .
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'
+License: GPL-1+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ .
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
Added: trunk/libschedule-at-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/debian/source/format?rev=55612&op=file
==============================================================================
--- trunk/libschedule-at-perl/debian/source/format (added)
+++ trunk/libschedule-at-perl/debian/source/format Wed Apr 7 15:21:13 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libschedule-at-perl/t/t1.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/t/t1.t?rev=55612&op=diff
==============================================================================
--- trunk/libschedule-at-perl/t/t1.t (original)
+++ trunk/libschedule-at-perl/t/t1.t Wed Apr 7 15:21:13 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));
More information about the Pkg-perl-cvs-commits
mailing list