r25040 - in /branches/upstream/libschedule-at-perl/current: At.pm Changes MANIFEST META.yml t/t1.t
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Sat Sep 13 09:28:54 UTC 2008
Author: rmayorga-guest
Date: Sat Sep 13 09:28:51 2008
New Revision: 25040
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25040
Log:
[svn-upgrade] Integrating new upstream version, libschedule-at-perl (1.07)
Added:
branches/upstream/libschedule-at-perl/current/META.yml
Modified:
branches/upstream/libschedule-at-perl/current/At.pm
branches/upstream/libschedule-at-perl/current/Changes
branches/upstream/libschedule-at-perl/current/MANIFEST
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=25040&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/At.pm (original)
+++ branches/upstream/libschedule-at-perl/current/At.pm Sat Sep 13 09:28:51 2008
@@ -2,13 +2,13 @@
require 5.004;
-# Copyright (c) 1997-2002 Jose A. Rodriguez. All rights reserved.
+# Copyright (c) 1997-2006 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.06';
+$VERSION = '1.07';
###############################################################################
# Load configuration for this OS
@@ -16,7 +16,7 @@
use Config;
-my @configs = split (/\./, "$Config{'osname'}.$Config{'osvers'}");
+my @configs = split (/\./, "$Config{'osname'}");
while (@configs) {
my $subName = 'AtCfg_' . join('_', @configs);
$subName =~ s/[^\w\d]/_/g;
@@ -74,14 +74,19 @@
return if !defined $params{TAG};
my %jobs = getJobs();
+ my %return;
foreach my $job (values %jobs) {
next if !defined($job->{JOBID}) ||
!defined($job->{TAG});
- remove(JOBID => "$job->{JOBID}")
- if $job->{JOBID} && $params{TAG} eq $job->{TAG};
+ if ($job->{JOBID} && $params{TAG} eq $job->{TAG}) {
+ $return{$job->{JOBID}} =
+ remove(JOBID => "$job->{JOBID}")
+ }
}
+
+ return \%return
}
}
@@ -203,8 +208,8 @@
%jobs = Schedule::At::getJobs(JOBID => $string);
%jobs = Schedule::At::getJobs(TAG => $string);
- Schedule::At::readJob(JOBID => $string);
- Schedule::At::readJob(TAG => $string);
+ Schedule::At::readJobs(JOBID => $string);
+ Schedule::At::readJobs(TAG => $string);
Schedule::At::remove(JOBID => $string);
Schedule::At::remove(TAG => $string);
@@ -251,7 +256,9 @@
a job or a set of jobs to delete with the B<TAG> parameter, removing
all the jobs that have the same tag (as specified with the add subroutine).
-Returns 0 on success or a value != 0 if an error occurred.
+Used with JOBID, returns 0 on success or a value != 0 if an error occurred.
+Used with TAG, returns a hash reference where the keys are the JOBID of
+the jobs found and the values indicate the success of the remove operation.
=item Schedule::At::getJobs
Modified: branches/upstream/libschedule-at-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libschedule-at-perl/current/Changes?rev=25040&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/Changes (original)
+++ branches/upstream/libschedule-at-perl/current/Changes Sat Sep 13 09:28:51 2008
@@ -41,3 +41,7 @@
1.06 Tue Sep 13 09:10:56 MEST 2005
- Added support for Darwin (Felipe Wettstein <karl AT gromski.ch>)
+1.07 Mon Sep 8 09:21:34 MEST 2008
+ - Fixed typo in pod (Michael Gang" <michaelgang AT gmail.com>)
+ - remove function using TAG now returns something useful (pointed by
+ <T.Haecker AT gmx.net>)
Modified: branches/upstream/libschedule-at-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libschedule-at-perl/current/MANIFEST?rev=25040&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/MANIFEST (original)
+++ branches/upstream/libschedule-at-perl/current/MANIFEST Sat Sep 13 09:28:51 2008
@@ -4,3 +4,4 @@
At.pm
Makefile.PL
t/t1.t
+META.yml Module meta-data (added by MakeMaker)
Added: 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=25040&op=file
==============================================================================
--- branches/upstream/libschedule-at-perl/current/META.yml (added)
+++ branches/upstream/libschedule-at-perl/current/META.yml Sat Sep 13 09:28:51 2008
@@ -1,0 +1,10 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: Schedule-At
+version: 1.07
+version_from: At.pm
+installdirs: site
+requires:
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30
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=25040&op=diff
==============================================================================
--- branches/upstream/libschedule-at-perl/current/t/t1.t (original)
+++ branches/upstream/libschedule-at-perl/current/t/t1.t Sat Sep 13 09:28:51 2008
@@ -1,4 +1,5 @@
use Test;
+use strict;
BEGIN { plan tests => 6 }
@@ -33,7 +34,7 @@
$rv = Schedule::At::remove (TAG => '_TEST_aTAG');
my %afterRemoveJobs = Schedule::At::getJobs();
listJobs('Schedule::At jobs deleted') if $verbose;
-ok(!$rv && scalar(keys %beforeJobs) == scalar(keys %afterRemoveJobs));
+ok(scalar(keys %beforeJobs) == scalar(keys %afterRemoveJobs));
# getJobs with TAG param
$rv = Schedule::At::add (
More information about the Pkg-perl-cvs-commits
mailing list