diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-08-12 03:17:17 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-08-12 03:17:17 +0000 |
| commit | 6f302831426c72fc1f13b124ae8152fadd2321fb (patch) | |
| tree | a2ea8b4faba755c4ef051951771c59643df98b3e | |
| parent | e6c9e2167d3d43680922a824fec1011a04a2ed02 (diff) | |
Use correct open mode
| -rw-r--r-- | Echolot/Mailin.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Echolot/Mailin.pm b/Echolot/Mailin.pm index 097a42f..b50a05b 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.7 2002/08/12 03:06:53 weasel Exp $ +# $Id: Mailin.pm,v 1.8 2002/08/12 03:17:17 weasel Exp $ # =pod @@ -109,7 +109,7 @@ sub read_mbox($) { my $mail = []; my $blank = 1; - open(FH, '<+', $file) or + open(FH, '+<', $file) or cluck("cannot open '$file': $!\n"), return undef; flock(FH, LOCK_EX) or |