diff options
| author | fukachan <fukachan> | 2002-02-02 07:55:45 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-02-02 07:55:45 +0000 |
| commit | 79f3386f4180afa83b73303ede5d8259a3632345 (patch) | |
| tree | 05f023e442a954ad6ba07480dbeca7242a1cbaae | |
| parent | dfc1de2d6b2cef8516a65193e73dfdb6eeef29fb (diff) | |
| download | fml8-79f3386f4180afa83b73303ede5d8259a3632345.tar.gz fml8-79f3386f4180afa83b73303ede5d8259a3632345.tar.bz2 fml8-79f3386f4180afa83b73303ede5d8259a3632345.zip | |
use File::Spec
| -rw-r--r-- | fml/lib/Mail/ThreadTrack/DB.pm | 5 | ||||
| -rw-r--r-- | fml/lib/TinyScheduler.pm | 6 |
2 files changed, 7 insertions, 4 deletions
diff --git a/fml/lib/Mail/ThreadTrack/DB.pm b/fml/lib/Mail/ThreadTrack/DB.pm index 6fea43e1..6189af3c 100644 --- a/fml/lib/Mail/ThreadTrack/DB.pm +++ b/fml/lib/Mail/ThreadTrack/DB.pm @@ -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: DB.pm,v 1.20 2002/01/30 14:51:16 fukachan Exp $ +# $FML: DB.pm,v 1.21 2002/02/01 12:04:03 fukachan Exp $ # package Mail::ThreadTrack::DB; @@ -60,10 +60,11 @@ sub db_open my $db_type = $self->{ config }->{ db_type } || 'AnyDBM_File'; my $db_dir = $self->{ _db_dir }; + use File::Spec; eval qq{ use $db_type; use Fcntl;}; unless ($@) { for my $db (@kind_of_databases) { - my $file = "$db_dir/${db}"; + my $file = File::Spec->catfile($db_dir, $db); my $str = qq{ my \%$db = (); tie \%$db, \$db_type, \$file, O_RDWR|O_CREAT, 0644; diff --git a/fml/lib/TinyScheduler.pm b/fml/lib/TinyScheduler.pm index ebe79cc3..9582499c 100644 --- a/fml/lib/TinyScheduler.pm +++ b/fml/lib/TinyScheduler.pm @@ -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: TinyScheduler.pm,v 1.14 2001/12/22 07:16:35 fukachan Exp $ +# $FML: TinyScheduler.pm,v 1.15 2001/12/22 09:21:00 fukachan Exp $ # package TinyScheduler; @@ -210,10 +210,12 @@ sub parse my $dh = new DirHandle $data_dir; if (defined $dh) { + use File::Spec; + while (defined($_ = $dh->read)) { next if $_ =~ /~$/; next if $_ =~ /^\./; - my $schedule_file = "$data_dir/$_"; + my $schedule_file = File::Spec->catfile($data_dir, $_); if (-f $schedule_file) { $self->_analyze($schedule_file, \@pat); } |