diff -r b82a656f784e -r 63b7c7fcd0cb acl.pm --- a/acl.pm Tue Apr 14 14:47:51 2015 +0200 +++ b/acl.pm Fri Feb 24 14:31:58 2017 +0100 @@ -23,7 +23,6 @@ END { $imap and $imap = undef; } sub _list(); -sub _mkpw($); sub list_by_user($@); sub list_by_folder($); @@ -386,23 +385,6 @@ return keys %x; } -{ - my @pw; - - sub _mkpw($) { - my $in = $_[0]; - - return $in unless $in and $in eq "{pwgen}"; - - if ( !@pw ) { - chomp( @pw = `pwgen 8 10 2>/dev/null` ); - die "pwgen: $!" if $?; - } - return shift @pw; - - } -} - sub imap_list($$) { my ( $ref, $folder ) = @_;