diff options
| author | fukachan <fukachan> | 2001-11-25 14:53:41 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-25 14:53:41 +0000 |
| commit | d72200f1822c2205129b9709250791b0d67863b3 (patch) | |
| tree | 98ac3ff1988fabb280a199c238864bb980f3058e /fml/lib/FML/Process/Scheduler.pm | |
| parent | af388b0ca43fdc85bde367007676e12bb3c31b8c (diff) | |
| download | fml8-d72200f1822c2205129b9709250791b0d67863b3.tar.gz fml8-d72200f1822c2205129b9709250791b0d67863b3.tar.bz2 fml8-d72200f1822c2205129b9709250791b0d67863b3.zip | |
more tainted safe (but needs more consideration, may be use of FML::Restriction class)
Diffstat (limited to 'fml/lib/FML/Process/Scheduler.pm')
| -rw-r--r-- | fml/lib/FML/Process/Scheduler.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Scheduler.pm b/fml/lib/FML/Process/Scheduler.pm index 4ad217df..74a65896 100644 --- a/fml/lib/FML/Process/Scheduler.pm +++ b/fml/lib/FML/Process/Scheduler.pm @@ -4,7 +4,7 @@ # Copyright (C) 2000,2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Scheduler.pm,v 1.6 2001/11/25 09:04:43 fukachan Exp $ +# $FML: Scheduler.pm,v 1.7 2001/11/25 10:43:35 fukachan Exp $ # package FML::Process::Scheduler; @@ -132,7 +132,10 @@ sub help my ($self) = @_; my $name = $0; - eval q{ use File::Basename; $name = basename($0);}; + eval q{ use File::Basename; + $name = basename($0); + if ($name =~ /(\w+)$/) { $name = $1;} + }; print <<"_EOF_"; |