diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-10-11 16:58:06 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-10-11 16:58:06 +0000 |
| commit | 05426240f826d60f6e08b9837a6389c2c6b0b687 (patch) | |
| tree | 23f511d80131aeec6c76e6d1ffa216501ec5aee4 /Echolot | |
| parent | ef45c3b07deb7a8272fecdc83a7927ae1ae310b9 (diff) | |
Fix a typo that showed up in perl 5.0005_02 (, vs .)
Diffstat (limited to 'Echolot')
| -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 b50a05b..66681c3 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.8 2002/08/12 03:17:17 weasel Exp $ +# $Id: Mailin.pm,v 1.9 2002/10/11 16:58:06 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 |