diff options
| author | fukachan <fukachan> | 2003-09-06 03:34:04 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-09-06 03:34:04 +0000 |
| commit | c4a557385025edb8bf0d72453030a4f67fa2e4ef (patch) | |
| tree | f4274d241e919d3094a2430ef51e1657475995fe /fml/lib/FML/Command | |
| parent | c437ee93e5b0b85339a4bc4a490213f437501573 (diff) | |
| download | fml8-c4a557385025edb8bf0d72453030a4f67fa2e4ef.tar.gz fml8-c4a557385025edb8bf0d72453030a4f67fa2e4ef.tar.bz2 fml8-c4a557385025edb8bf0d72453030a4f67fa2e4ef.zip | |
use removed_ml_home_dir_path() method to determine the dir path used
as the removed $ml_home_dir.
Diffstat (limited to 'fml/lib/FML/Command')
| -rw-r--r-- | fml/lib/FML/Command/Admin/rmml.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fml/lib/FML/Command/Admin/rmml.pm b/fml/lib/FML/Command/Admin/rmml.pm index c556240b..e2d1faf0 100644 --- a/fml/lib/FML/Command/Admin/rmml.pm +++ b/fml/lib/FML/Command/Admin/rmml.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: rmml.pm,v 1.16 2003/08/29 15:33:59 fukachan Exp $ +# $FML: rmml.pm,v 1.17 2003/09/04 12:27:53 fukachan Exp $ # package FML::Command::Admin::rmml; @@ -118,8 +118,8 @@ sub _remove_ml_home_dir print STDERR "removing ml_home_dir for $ml_name\n"; # /var/spool/ml/elena -> /var/spool/ml/@elena - use File::Spec; - my $removed_dir = File::Spec->catfile($ml_home_prefix, '@'.$ml_name); + my $removed_dir = + $curproc->removed_ml_home_dir_path($ml_home_prefix, $ml_name); rename($ml_home_dir, $removed_dir); if (-d $removed_dir && (! -d $ml_home_dir)) { |