diff options
| author | Joachim Breitner <nomeata@debian.org> | 2010-03-25 22:37:44 +0100 |
|---|---|---|
| committer | Marius Halden <marius.h@lden.org> | 2016-12-19 16:47:28 +0100 |
| commit | 083b8a90916af767391b38f546795c1be6167c80 (patch) | |
| tree | cb735c3415d3ce06a8050349feee447211bda9f9 | |
| parent | c23e1a070a7352885ae0490c4012a8fc9d1f3b39 (diff) | |
| download | listadmin-083b8a90916af767391b38f546795c1be6167c80.tar.gz listadmin-083b8a90916af767391b38f546795c1be6167c80.tar.bz2 listadmin-083b8a90916af767391b38f546795c1be6167c80.tar.xz | |
Do not try to write bogus log file is none is defined
| -rwxr-xr-x | listadmin.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/listadmin.pl b/listadmin.pl index 03c2e7e..14c965f 100755 --- a/listadmin.pl +++ b/listadmin.pl @@ -1345,8 +1345,8 @@ sub commit_changes { my $params = mailman_params ($user, $pw); my $log = log_timestamp ($list); - # Expand {list}, {subdomain} and {domain} - $logfile = mailman_url($list, $logfile); + # Expand {list}, {subdomain} and {domain}, if there is something to expand + $logfile = mailman_url($list, $logfile) if $logfile; for my $id (sort { $a <=> $b } keys %{$change}) { my ($what, $text) = @{$change->{$id}}; |