diff --git a/sysutils/p5-Schedule-At/Makefile b/sysutils/p5-Schedule-At/Makefile
index 3ec7698d10cb..c2fbe97d049f 100644
--- a/sysutils/p5-Schedule-At/Makefile
+++ b/sysutils/p5-Schedule-At/Makefile
@@ -7,6 +7,7 @@
 
 PORTNAME=	Schedule-At
 PORTVERSION=	1.06
+PORTREVISION=	1
 CATEGORIES=	sysutils perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
 MASTER_SITE_SUBDIR=	Schedule
diff --git a/sysutils/p5-Schedule-At/files/patch-At.pm b/sysutils/p5-Schedule-At/files/patch-At.pm
index e0031ed112f2..116cd6c8221a 100644
--- a/sysutils/p5-Schedule-At/files/patch-At.pm
+++ b/sysutils/p5-Schedule-At/files/patch-At.pm
@@ -1,5 +1,5 @@
---- At.pm.orig	Mon Mar 25 20:52:01 2002
-+++ At.pm	Tue May 14 18:15:55 2002
+--- At.pm.orig	Tue Sep 13 16:11:36 2005
++++ At.pm	Sun Nov 19 21:58:16 2006
 @@ -55,6 +55,7 @@
  		print ATCMD "$TAGID$params{TAG}\n" if $params{TAG};
  		print ATCMD $params{COMMAND};
@@ -8,37 +8,3 @@
  	}
  
  	0;
-@@ -258,6 +259,7 @@
- Jose A. Rodriguez (josear@ac.upc.es)
- 
- =cut
-+#' for Emacs face
- 
- ###############################################################################
- # OS dependent code
-@@ -327,6 +329,25 @@
- 		my @fields = split("\t", $_[0]);
- 		($fields[0], substr($fields[1], 0, 16)) 
- 	};
-+}
-+
-+sub AtCfg_freebsd {
-+	$AT{'add'} = 'at %TIME% 2> /dev/null';
-+	$AT{'addFile'} = 'at -f %FILE% %TIME% 2> /dev/null';
-+	$AT{'timeFormat'} = '%HOUR%:%MINS% %MONTH%/%DAY%/%YEAR%';
-+	$AT{'remove'} = 'atrm %JOBID%';
-+	$AT{'getJobs'} = 'atq';
-+	$AT{'headings'} = ['Date'];
-+	$AT{'getCommand'} = 'at -c %JOBID% |';
-+	$AT{'parseJobList'} = 
-+	  sub {
-+	    my @a = split(/\s+/, $_[0]);
-+	    if ($_[0] =~ /^\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 {