diff options
-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 { |