From: Sebastian Date: Sun, 15 Jun 2014 21:35:44 +0000 (+0200) Subject: modules/FTNMAIL: remove prototypes, allow v5.010 X-Git-Url: http://sraa.de/git/?a=commitdiff_plain;h=3be7e9465f45695d2e7a853d8cbd33b832199f3d;p=fido.git modules/FTNMAIL: remove prototypes, allow v5.010 --- diff --git a/modules/FTNMAIL.pm b/modules/FTNMAIL.pm index c14fd3d..05eeaa9 100644 --- a/modules/FTNMAIL.pm +++ b/modules/FTNMAIL.pm @@ -1,6 +1,6 @@ #!/usr/bin/perl -w use strict; -use v5.012; +use v5.010; # ========================================================================= # Perl module to handle FTN style mail @@ -18,11 +18,6 @@ package FTNMAIL; use Encode; use Text::Wrap; -# helper functions -#sub chrs2charset($); sub charset2chrs($); # charset -#sub str2datetime($); sub datetime2str(@); # datetime string -#sub str2ftn($); sub ftn2str(@); # ftn address - sub pack_mail($$) { my ($mail, $charset) = @_;