diff options
| -rw-r--r-- | fml/lib/FML/Install.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fml/lib/FML/Install.pm b/fml/lib/FML/Install.pm index 1f8f61b8..4f0733f7 100644 --- a/fml/lib/FML/Install.pm +++ b/fml/lib/FML/Install.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: Install.pm,v 1.11 2004/01/21 03:45:03 fukachan Exp $ +# $FML: Install.pm,v 1.12 2004/06/07 16:04:42 fukachan Exp $ # package FML::Install; @@ -306,7 +306,8 @@ sub install_default_config_files my $config = $self->{ _config }; my $config_dir = $self->path( 'default_config_dir' ); - print STDERR "updating $config_dir\n"; + my $_config_dir = File::Spec->catfile($install_root, $config_dir); + print STDERR "updating $_config_dir\n"; $self->disable_message(); @@ -651,7 +652,8 @@ sub setup_ml_spool_dir { my ($self) = @_; my $config = $self->{ _config }; - my $dir = $self->path( 'ml_spool_dir' ); + my $spool = $self->path( 'ml_spool_dir' ); + my $dir = File::Spec->catfile($install_root, $spool); my $owner = $config->{ owner }; my $group = $config->{ group }; |