diff options
| author | fukachan <fukachan> | 2001-07-15 11:45:39 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-07-15 11:45:39 +0000 |
| commit | 05d373b90b6905bdfb39e77d02a000cf7e231c64 (patch) | |
| tree | d73474ecd7d455a14c39ffed238aa32a89465503 /fml/lib/FML/Command | |
| parent | 925fe58f11933126f579faa527a57c0130677189 (diff) | |
| download | fml8-05d373b90b6905bdfb39e77d02a000cf7e231c64.tar.gz fml8-05d373b90b6905bdfb39e77d02a000cf7e231c64.tar.bz2 fml8-05d373b90b6905bdfb39e77d02a000cf7e231c64.zip | |
extract $myname from $args
Diffstat (limited to 'fml/lib/FML/Command')
| -rw-r--r-- | fml/lib/FML/Command/edit.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fml/lib/FML/Command/edit.pm b/fml/lib/FML/Command/edit.pm index ee8745b3..c08ea032 100644 --- a/fml/lib/FML/Command/edit.pm +++ b/fml/lib/FML/Command/edit.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: edit.pm,v 1.1 2001/07/15 04:00:27 fukachan Exp $ +# $FML: edit.pm,v 1.2 2001/07/15 08:14:45 fukachan Exp $ # package FML::Command::edit; @@ -35,6 +35,7 @@ sub edit my $config = $curproc->{ config }; my $options = $args->{ options }; my $address = $args->{ address } || $options->[ 0 ]; + my $myname = $args->{ args }->{ myname }; # ML's home directory my $ml_home_dir = $args->{ 'args' }->{ 'ml_home_dir' }; |