diff options
| author | Graham Barr <gbarr@pobox.com> | 2008-02-10 01:45:33 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2009-02-24 10:40:49 -0600 |
| commit | ff9d37cef81d6728d465175bb1d35a4ef6cd7e7a (patch) | |
| tree | 44dc5ebf8c17c42e915a656dc55e01a16473d9e5 | |
| parent | 39957c670d96586b0e11091cc2deaa8409d120c8 (diff) | |
| download | perl-libnet-ff9d37cef81d6728d465175bb1d35a4ef6cd7e7a.tar.gz | |
Use uppercase characters for xtext encoding
| -rw-r--r-- | Net/SMTP.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Net/SMTP.pm b/Net/SMTP.pm index db5907b..4e95db9 100644 --- a/Net/SMTP.pm +++ b/Net/SMTP.pm @@ -290,7 +290,7 @@ sub mail { if (defined($v = delete $opt{Envelope})) { if (exists $esmtp->{DSN}) { - $v =~ s/([^\041-\176]|=|\+)/sprintf "+%02x", ord($1)/sge; + $v =~ s/([^\041-\176]|=|\+)/sprintf "+%02X", ord($1)/sge; $opts .= " ENVID=$v"; } else { |