Upgrade to 1.03.

Support latest -current's atq command output.

2 files changed, 17 insertions, 19 deletions

diff --git a/sysutils/p5-Schedule-At/files/patch-At.pm b/sysutils/p5-Schedule-At/files/patch-At.pm
index c05d9302b653..4d5f48a926f5 100644
--- a/sysutils/p5-Schedule-At/files/patch-At.pm
+++ b/sysutils/p5-Schedule-At/files/patch-At.pm
@@ -1,6 +1,6 @@
---- At.pm.orig	Thu Feb 12 20:08:37 1998
-+++ At.pm	Wed Jan 10 11:56:50 2001
-@@ -264,6 +264,7 @@
+--- At.pm.orig	Mon Mar 25 20:52:01 2002
++++ At.pm	Tue May 14 17:17:41 2002
+@@ -258,6 +258,7 @@
  Jose A. Rodriguez (josear@ac.upc.es)
  
  =cut
@@ -8,10 +8,10 @@
  
  ###############################################################################
  # OS dependent code
-@@ -330,4 +331,16 @@
- 	$AT{'getCommand'} = 'at -c %JOBID% |';
- 	$AT{'parseJobList'} = 
- 		sub { (substr($_[0], 27), substr($_[0], 0, 17)) } ;
+@@ -327,6 +328,25 @@
+ 		my @fields = split("\t", $_[0]);
+ 		($fields[0], substr($fields[1], 0, 16)) 
+ 	};
 +}
 +
 +sub AtCfg_freebsd {
@@ -23,5 +23,14 @@
 +	$AT{'headings'} = ['Date'];
 +	$AT{'getCommand'} = 'at -c %JOBID% |';
 +	$AT{'parseJobList'} = 
-+		sub { my @a = split(/\s+/, $_[0]); ($a[4], "$a[0] $a[1]") } ;
++	  sub {
++	    my @a = split(/\s+/, $_[0]);
++	    if (/^\d\d/) {
++	      return ($a[4], "$a[0] $a[1]");
++	    } elsif (defined $a[8]) {
++	      return ($a[8], "$a[0] $a[1] $a[2] $a[3] $a[4] $a[5]");
++	    }
++	  };
  }
+ 
+ sub AtCfg_aix {
diff --git a/sysutils/p5-Schedule-At/files/patch-t1.t b/sysutils/p5-Schedule-At/files/patch-t1.t
deleted file mode 100644
index 7d4c228440de..000000000000
--- a/sysutils/p5-Schedule-At/files/patch-t1.t
+++ /dev/null
@@ -1,11 +0,0 @@
---- t/t1.t.orig	Thu Feb 12 19:59:26 1998
-+++ t/t1.t	Wed Jan 10 12:00:00 2001
-@@ -28,7 +28,7 @@
- print "ok 3\n";
- 
- my %atJobs = Schedule::At::getJobs();
--print "not " if !defined(%atJobs);
-+print "not " if (not %atJobs);
- print "ok 4\n";
- 
- $rv = Schedule::At::remove (TAG => 'Schedule::At');