diff options
author | Yen-Ming Lee <leeym@FreeBSD.org> | 2002-11-03 17:58:33 +0000 |
---|---|---|
committer | Yen-Ming Lee <leeym@FreeBSD.org> | 2002-11-03 17:58:33 +0000 |
commit | ea9232414be15ec5071063eb87e03cd92be1a322 (patch) | |
tree | edbc47e33eb7e4ab7d6cd85d0f1e9a0d46177c6c /mail/razor-agents/files | |
parent | 982245deed7e6a3679c8ca6e6d2319bd70821741 (diff) | |
download | ports-ea9232414be15ec5071063eb87e03cd92be1a322.tar.gz ports-ea9232414be15ec5071063eb87e03cd92be1a322.zip |
Notes
Diffstat (limited to 'mail/razor-agents/files')
-rw-r--r-- | mail/razor-agents/files/patch-lib::Razor2::Client::Agent.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/mail/razor-agents/files/patch-lib::Razor2::Client::Agent.pm b/mail/razor-agents/files/patch-lib::Razor2::Client::Agent.pm new file mode 100644 index 000000000000..808e3d7eed0f --- /dev/null +++ b/mail/razor-agents/files/patch-lib::Razor2::Client::Agent.pm @@ -0,0 +1,17 @@ +--- lib/Razor2/Client/Agent.pm.orig Sun Nov 3 21:07:21 2002 ++++ lib/Razor2/Client/Agent.pm Sun Nov 3 21:08:17 2002 +@@ -753,10 +753,11 @@ + foreach my $file (@ARGV) { + my $fh; + my @message = (); +- if (ref $file) { +- $fh = $file ++ if ($file eq '-') { ++ $fh = \*STDIN; + } else { +- open $fh, "<$file" or return $self->error("Can't open $file: $!"); ++ open FH, "<$file" or return $self->error("Can't open $file: $!"); ++ $fh = \*FH; + } + next unless defined(my $line = <$fh>); + if ($line =~ /^From /) { |