diff options
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; } |