| Subject: | [PATCH] qmail.pm: fixed perl syntax |
| Date: | Tue, 10 Apr 2007 22:33:00 +0400 |
| To: | bug-mailtools [...] rt.cpan.org |
| From: | Alexey Tourbin <at [...] altlinux.ru> |
$ perl -c Mail/Mailer/qmail.pm
Search pattern not terminated at Mail/Mailer/qmail.pm line 8.
$
---
Mail/Mailer/qmail.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/Mail/Mailer/qmail.pm b/Mail/Mailer/qmail.pm
index 7eeacd7..e5bfbc1 100644
--- a/Mail/Mailer/qmail.pm
+++ b/Mail/Mailer/qmail.pm
@@ -5,6 +5,6 @@ require Mail::Mailer::rfc822;
sub exec {
my($self, $exe, $args, $to, $sender) = @_;
- my $address = defined $sender && $sender =~ m/\<(.*?)\> ? $1 : $sender;
+ my $address = defined $sender && $sender =~ m/\<(.*?)\>/ ? $1 : $sender;
exec($exe, (defined $address ? "-f$address" : ()));
}
--
1.5.1.GIT