diff options
| author | fukachan <fukachan> | 2006-04-28 13:18:57 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-04-28 13:18:57 +0000 |
| commit | af2e6c20b05894a1eb9526a58ffdc679dc8a8264 (patch) | |
| tree | b8394b78356cd05572fe5ac946d41da3998e305c | |
| parent | 20a2852e958527d9f48bbf9babfbe9eb2e6b6f77 (diff) | |
| download | fml8-af2e6c20b05894a1eb9526a58ffdc679dc8a8264.tar.gz fml8-af2e6c20b05894a1eb9526a58ffdc679dc8a8264.tar.bz2 fml8-af2e6c20b05894a1eb9526a58ffdc679dc8a8264.zip | |
fix open() mode: r -> <
| -rw-r--r-- | fml/lib/Mail/Delivery/Queue.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/Mail/Delivery/Queue.pm b/fml/lib/Mail/Delivery/Queue.pm index 0512d665..ad54d6fb 100644 --- a/fml/lib/Mail/Delivery/Queue.pm +++ b/fml/lib/Mail/Delivery/Queue.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Queue.pm,v 1.66 2006/04/05 13:13:52 fukachan Exp $ +# $FML: Queue.pm,v 1.67 2006/04/09 15:15:10 fukachan Exp $ # package Mail::Delivery::Queue; @@ -809,7 +809,7 @@ sub open if (defined $op_args->{ in_channel }) { my $channel = $op_args->{ in_channel }; - my $mode = $op_args->{ mode } || "r"; + my $mode = $op_args->{ mode } || "<"; open($channel, $mode, $qf); return $channel; } |