diff options
| author | fukachan <fukachan> | 2012-12-15 06:10:57 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2012-12-15 06:10:57 +0000 |
| commit | 1a00375f0ff442f1ad3df855d1f0d6421dc35310 (patch) | |
| tree | 22f00e2824bdb05fb76d6053276dbd5c926d400a /regress | |
| parent | a7315027fd1ac2e0af2de88b6366f4b7c4ad06da (diff) | |
| download | fml8-1a00375f0ff442f1ad3df855d1f0d6421dc35310.tar.gz fml8-1a00375f0ff442f1ad3df855d1f0d6421dc35310.tar.bz2 fml8-1a00375f0ff442f1ad3df855d1f0d6421dc35310.zip | |
use Time::localtime instead of ctime.pl, which is obsolete.
Diffstat (limited to 'regress')
| -rwxr-xr-x | regress/base/date2unixtime.pl | 5 | ||||
| -rwxr-xr-x | regress/message/scramble.pl | 5 | ||||
| -rwxr-xr-x | regress/message/send2.pl | 5 |
3 files changed, 9 insertions, 6 deletions
diff --git a/regress/base/date2unixtime.pl b/regress/base/date2unixtime.pl index 86b1bea7..19cf9f67 100755 --- a/regress/base/date2unixtime.pl +++ b/regress/base/date2unixtime.pl @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: date2unixtime.pl,v 1.4 2002/05/11 08:34:52 fukachan Exp $ +# $FML: date2unixtime.pl,v 1.5 2006/01/24 11:33:04 fukachan Exp $ # use strict; @@ -12,7 +12,8 @@ use Mail::Message::Date; my $debug = defined $ENV{'debug'} ? 1 : 0; -require 'ctime.pl'; +# require 'ctime.pl'; +use Time::localtime; my $t = time; my $date = ctime( $t ); diff --git a/regress/message/scramble.pl b/regress/message/scramble.pl index e8525c1c..86d86398 100755 --- a/regress/message/scramble.pl +++ b/regress/message/scramble.pl @@ -5,7 +5,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: scramble.pl,v 1.4 2006/11/24 06:51:15 fukachan Exp $ +# $FML: scramble.pl,v 1.5 2010/03/06 13:18:40 fukachan Exp $ # use strict; @@ -57,7 +57,8 @@ while (<>) { if ($mode eq "post") { # avoid body loop check. - require 'ctime.pl'; + # require 'ctime.pl'; + use Time::localtime; print "\n"; print "XXX AVOID BODY CHECKSUM LOOP CHECK: "; print ctime(time); diff --git a/regress/message/send2.pl b/regress/message/send2.pl index 1b29e2b0..a6b816d3 100755 --- a/regress/message/send2.pl +++ b/regress/message/send2.pl @@ -5,7 +5,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: send2.pl,v 1.4 2001/05/09 00:55:56 fukachan Exp $ +# $FML: send2.pl,v 1.5 2005/07/27 12:16:21 fukachan Exp $ # use strict; @@ -13,7 +13,8 @@ use Carp; use lib qw(../../cpan/lib ../../fml/lib); use Mail::Message; use FileHandle; -require 'ctime.pl'; +use Time::localtime; # require 'ctime.pl'; + my $sender = 'elena-admin@sapporo.iij.ad.jp'; my $rcpt = 'fukachan@sapporo.iij.ad.jp'; |