aboutsummaryrefslogtreecommitdiffstats
path: root/sysutils
diff options
context:
space:
mode:
authorkuriyama <kuriyama@FreeBSD.org>2002-05-14 17:18:22 +0800
committerkuriyama <kuriyama@FreeBSD.org>2002-05-14 17:18:22 +0800
commit7fceb865fa7bce88b05b2afd93d304eae2090b77 (patch)
tree8ebba9f4a343323c3b8baed63f2325e6d76911ec /sysutils
parent8b831d446a0ba9b3e98c3b60482edcad6c49e18d (diff)
downloadfreebsd-ports-gnome-7fceb865fa7bce88b05b2afd93d304eae2090b77.tar.gz
freebsd-ports-gnome-7fceb865fa7bce88b05b2afd93d304eae2090b77.tar.zst
freebsd-ports-gnome-7fceb865fa7bce88b05b2afd93d304eae2090b77.zip
Return 1 when Schedule::At::add() is used by denied (by /var/at/at.deny)
user. Pointed out by: hanai
Diffstat (limited to 'sysutils')
-rw-r--r--sysutils/p5-Schedule-At/Makefile1
-rw-r--r--sysutils/p5-Schedule-At/files/patch-At.pm14
2 files changed, 12 insertions, 3 deletions
diff --git a/sysutils/p5-Schedule-At/Makefile b/sysutils/p5-Schedule-At/Makefile
index 776f5712d3cd..59fe4efbdc5d 100644
--- a/sysutils/p5-Schedule-At/Makefile
+++ b/sysutils/p5-Schedule-At/Makefile
@@ -7,6 +7,7 @@
PORTNAME= Schedule-At
PORTVERSION= 1.03
+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 4d5f48a926f5..64ca9761c716 100644
--- a/sysutils/p5-Schedule-At/files/patch-At.pm
+++ b/sysutils/p5-Schedule-At/files/patch-At.pm
@@ -1,6 +1,14 @@
--- At.pm.orig Mon Mar 25 20:52:01 2002
-+++ At.pm Tue May 14 17:17:41 2002
-@@ -258,6 +258,7 @@
++++ At.pm Tue May 14 18:15:55 2002
+@@ -55,6 +55,7 @@
+ print ATCMD "$TAGID$params{TAG}\n" if $params{TAG};
+ print ATCMD $params{COMMAND};
+ close (ATCMD);
++ return 1 if ($?);
+ }
+
+ 0;
+@@ -258,6 +259,7 @@
Jose A. Rodriguez (josear@ac.upc.es)
=cut
@@ -8,7 +16,7 @@
###############################################################################
# OS dependent code
-@@ -327,6 +328,25 @@
+@@ -327,6 +329,25 @@
my @fields = split("\t", $_[0]);
($fields[0], substr($fields[1], 0, 16))
};