diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-02-03 20:10:05 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-02-03 20:10:05 +0000 |
| commit | 8bd1ed90c790e594e7d59e2ac5fed4faa7f2effe (patch) | |
| tree | 65d4165bda1e518f6f523863273c9f4115fe183b | |
| parent | 552ec494a98cab7bec7eb5861124b9d3ef51d9e0 (diff) | |
Return undef rather than 0 if we cannot open a Maildir.
| -rw-r--r-- | Echolot/Mailin.pm | 4 | ||||
| -rw-r--r-- | NEWS | 3 |
2 files changed, 5 insertions, 2 deletions
diff --git a/Echolot/Mailin.pm b/Echolot/Mailin.pm index 6bcf7a1..27785f7 100644 --- a/Echolot/Mailin.pm +++ b/Echolot/Mailin.pm @@ -1,7 +1,7 @@ package Echolot::Mailin; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Mailin.pm,v 1.10 2003/01/14 05:25:35 weasel Exp $ +# $Id: Mailin.pm,v 1.11 2003/02/03 20:10:05 weasel Exp $ # =pod @@ -150,7 +150,7 @@ sub read_maildir($) { for my $sub (qw{new cur}) { opendir(DIR, $dir.'/'.$sub) or Echolot::Log::warn("Cannot open direcotry '$dir/$sub': $!."), - return 0; + return undef; push @files, map { $sub.'/'.$_ } grep { ! /^\./ } readdir(DIR); closedir(DIR) or Echolot::Log::warn("Cannot close direcotry '$dir/$sub': $!."); @@ -1,3 +1,6 @@ +Changes in version + * Return undef rather than 0 if we cannot open a Maildir. + Changes in version 2.0.9 - 2003-01-14 * Logging is finally cleaned up. There are two new config options: logfile and loglevel. |