Permalink
Browse files

Add ML_CHOWN_USER config option

  • Loading branch information...
1 parent ff5fee1 commit 61541383e6d0c37abf40a1ea9954cc48b0d877bc @xdg xdg committed Aug 13, 2011
Showing with 2 additions and 1 deletion.
  1. +1 −0 lib/PAUSE.pm
  2. +1 −1 lib/PAUSE/mldistwatch.pm
View
@@ -65,6 +65,7 @@ $PAUSE::Config ||=
AUTHEN_USER_FLD => "user",
AUTHEN_USER_TABLE => "usertable",
CPAN_TESTERS => qq(cpan-uploads\@perl.org), # cpan-uploads is a mailing list, BINGOS relies on it
+ ML_CHOWN_USER => qq{UNSAFE},
TO_CPAN_TESTERS => qq(cpan-uploads\@perl.org),
REPLY_TO_CPAN_TESTERS => qq(cpan-uploads\@perl.org),
DELETES_EXPIRE => 60*60*72,
View
@@ -2061,7 +2061,7 @@ Please contact modules\@perl.org if there are any open questions.
my($self) = @_;
return if $self->{CHOWN_UNSAFE_DONE};
use File::Find;
- my(undef,undef,$uid,$gid) = getpwnam("UNSAFE");
+ my(undef,undef,$uid,$gid) = getpwnam($PAUSE::Config->{ML_CHOWN_USER});
die "user UNSAFE not found, cannot continue" unless defined $uid;
find(sub {
chown $uid, $gid, $_;

0 comments on commit 6154138

Please sign in to comment.