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 /fml/lib/Mail/ThreadTrack | |
| parent | dfc1de2d6b2cef8516a65193e73dfdb6eeef29fb (diff) | |
| download | fml8-79f3386f4180afa83b73303ede5d8259a3632345.tar.gz fml8-79f3386f4180afa83b73303ede5d8259a3632345.tar.bz2 fml8-79f3386f4180afa83b73303ede5d8259a3632345.zip | |
use File::Spec
Diffstat (limited to 'fml/lib/Mail/ThreadTrack')
| -rw-r--r-- | fml/lib/Mail/ThreadTrack/DB.pm | 5 |
1 files changed, 3 insertions, 2 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; |