From 6f302831426c72fc1f13b124ae8152fadd2321fb Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Mon, 12 Aug 2002 03:17:17 +0000 Subject: Use correct open mode --- Echolot/Mailin.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Echolot/Mailin.pm') 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 -# $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 -- cgit v1.2.3