diff options
| author | fukachan <fukachan> | 2001-03-14 16:07:03 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-14 16:07:03 +0000 |
| commit | cbc7ff4ec8089d9a9eb88429d75812310a7fe410 (patch) | |
| tree | 305f27fd29e8a49e99c6a6239286fe95fac3e900 | |
| parent | 0fb46d4b89d4b7e2eefa9aef58fe933fab1f9e0f (diff) | |
| download | fml8-cbc7ff4ec8089d9a9eb88429d75812310a7fe410.tar.gz fml8-cbc7ff4ec8089d9a9eb88429d75812310a7fe410.tar.bz2 fml8-cbc7ff4ec8089d9a9eb88429d75812310a7fe410.zip | |
fix tr() to make chars upper case
| -rw-r--r-- | fml/lib/MailingList/Delivery.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fml/lib/MailingList/Delivery.pm b/fml/lib/MailingList/Delivery.pm index c012cb9a..9f212018 100644 --- a/fml/lib/MailingList/Delivery.pm +++ b/fml/lib/MailingList/Delivery.pm @@ -85,7 +85,7 @@ sub new my $pkg = 'MailingList::SMTP'; # char's of the protocol name is aligned to upper case. - $protocol =~ tr/A-Z/a-z/; + $protocol =~ tr/a-z/A-Z/; if ($protocol eq 'SMTP') { $pkg = 'MailingList::SMTP'; |