diff options
| author | fukachan <fukachan> | 2002-04-10 09:57:22 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-10 09:57:22 +0000 |
| commit | f3e294bf7606370ad100b25f0886d093823531df (patch) | |
| tree | 56922fa05b4c6e32a390a4797a4c4daf8c8a5f5a /fml/lib/FML/Process | |
| parent | b36c95fca10d4feab47473cfd6f04e7783dc483d (diff) | |
| download | fml8-f3e294bf7606370ad100b25f0886d093823531df.tar.gz fml8-f3e294bf7606370ad100b25f0886d093823531df.tar.bz2 fml8-f3e294bf7606370ad100b25f0886d093823531df.zip | |
whitespace niche
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Process/ThreadTrack.pm | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index fceef975..efc876f9 100644 --- a/fml/lib/FML/Process/Switch.pm +++ b/fml/lib/FML/Process/Switch.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: Switch.pm,v 1.61 2002/04/07 12:25:25 fukachan Exp $ +# $FML: Switch.pm,v 1.62 2002/04/08 12:44:26 fukachan Exp $ # package FML::Process::Switch; @@ -220,7 +220,7 @@ sub _usual_parse_argv { my ($myname, $main_cf) = @_; use FML::Process::Utils; - my $ml_home_prefix = + my $ml_home_prefix = FML::Process::Utils::__ml_home_prefix_from_main_cf($main_cf); my $ml_home_dir = ''; my $found_cf = 0; diff --git a/fml/lib/FML/Process/ThreadTrack.pm b/fml/lib/FML/Process/ThreadTrack.pm index cdeda9aa..0295803a 100644 --- a/fml/lib/FML/Process/ThreadTrack.pm +++ b/fml/lib/FML/Process/ThreadTrack.pm @@ -3,7 +3,7 @@ # Copyright (C) 2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: ThreadTrack.pm,v 1.25 2002/03/17 06:24:31 fukachan Exp $ +# $FML: ThreadTrack.pm,v 1.26 2002/04/10 09:00:08 fukachan Exp $ # package FML::Process::ThreadTrack; @@ -198,7 +198,7 @@ sub run } -# Descriptions: +# Descriptions: # Arguments: OBJ($curproc) OBJ($thread) # Side Effects: none # Return Value: none @@ -216,8 +216,8 @@ sub _speculate_last_id use File::stat; my $st = stat($seq_file); $sf_last_modified = - $sf_last_modified > $st->mtime ? - $sf_last_modified : + $sf_last_modified > $st->mtime ? + $sf_last_modified : $st->mtime; }; } |