diff options
| author | Steve Price <steve@FreeBSD.org> | 2000-05-29 18:17:39 +0000 |
|---|---|---|
| committer | Steve Price <steve@FreeBSD.org> | 2000-05-29 18:17:39 +0000 |
| commit | 5373fd28de9cdf3c9c80dfcea841d0c3c9d2bdb5 (patch) | |
| tree | 99a43c72d0c1590652517d529a4b9f9e6ca425c4 /mail/majordomo/files/patch-ba | |
| parent | 2d610cd8b416a6a6c1a8e2fa2e745b3bd4aa7ad9 (diff) | |
| download | ports-5373fd28de9cdf3c9c80dfcea841d0c3c9d2bdb5.tar.gz ports-5373fd28de9cdf3c9c80dfcea841d0c3c9d2bdb5.zip | |
Update to version 1.94.5.
PR: 17820
Submitted by: Doug Barton <DougB@gorean.org> and
Klaus Brunner <klaus@winf.htu.at>
Notes
Notes:
svn path=/head/; revision=28932
Diffstat (limited to 'mail/majordomo/files/patch-ba')
| -rw-r--r-- | mail/majordomo/files/patch-ba | 33 |
1 files changed, 30 insertions, 3 deletions
diff --git a/mail/majordomo/files/patch-ba b/mail/majordomo/files/patch-ba index 9a655b3a364e..286a50cc963f 100644 --- a/mail/majordomo/files/patch-ba +++ b/mail/majordomo/files/patch-ba @@ -1,6 +1,33 @@ ---- archive2.pl.orig Thu Aug 28 00:07:44 1997 -+++ archive2.pl Wed Sep 10 00:57:13 1997 -@@ -88,7 +88,7 @@ +--- archive2.pl.Dist Fri Jan 7 03:00:49 2000 ++++ archive2.pl Sun Apr 16 23:15:49 2000 +@@ -54,10 +54,23 @@ + shift(@ARGV); + shift(@ARGV); + } +-if (! -r $cf) { +- die("$cf not readable; stopped"); ++ ++if (not sysopen CONFIG,$cf,O_RDONLY) ++{ ++ die sprintf qq|Unable to sysopen config file "$cf"%s.\n|,$! ? ": $!" : ''; ++} ++elsif ((stat CONFIG)[4] != $>) ++{ ++ die qq|Config file "$cf" not owned by effective UID.\n|; ++} ++elsif (eval(join '',<CONFIG>),$@) ++{ ++ die qq|Unable to eval "$cf": $@.\n|; ++} ++else ++{ ++ close CONFIG; + } +-require "$cf"; + + # All these should be in the standard PERL library + unshift(@INC, $homedir); +@@ -88,7 +101,7 @@ exit 1; } |