diff options
| author | fukachan <fukachan> | 2003-12-06 04:48:18 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-12-06 04:48:18 +0000 |
| commit | 8aafe7a4fff3f9b695c67d26a96f280c10b4b78a (patch) | |
| tree | da3a5b578c520333594816227ea55dd4b5efef5f /fml/lib/FML/Process | |
| parent | 63ff4a7581c0aadb8cdd531b82ef422651cab868 (diff) | |
| download | fml8-8aafe7a4fff3f9b695c67d26a96f280c10b4b78a.tar.gz fml8-8aafe7a4fff3f9b695c67d26a96f280c10b4b78a.tar.bz2 fml8-8aafe7a4fff3f9b695c67d26a96f280c10b4b78a.zip | |
cosmetics: white space
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/CGI/Kernel.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Utils.pm | 10 |
3 files changed, 10 insertions, 10 deletions
diff --git a/fml/lib/FML/Process/CGI/Kernel.pm b/fml/lib/FML/Process/CGI/Kernel.pm index a8c5bb3f..0fd6bd5a 100644 --- a/fml/lib/FML/Process/CGI/Kernel.pm +++ b/fml/lib/FML/Process/CGI/Kernel.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: Kernel.pm,v 1.65 2003/10/18 04:43:51 fukachan Exp $ +# $FML: Kernel.pm,v 1.66 2003/11/02 05:12:37 fukachan Exp $ # package FML::Process::CGI::Kernel; @@ -100,7 +100,7 @@ sub prepare $curproc->_cgi_fix_log_file(); } - # fix charset + # fix charset $curproc->_set_charset(); my $charset = $curproc->get_charset("cgi"); # updated charset. @@ -117,7 +117,7 @@ sub prepare sub _set_charset { my ($curproc) = @_; - my $lang = + my $lang = $curproc->cgi_var_language() || $curproc->_http_accept_language(); use Mail::Message::Charset; diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 31d01590..4008549d 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.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: Kernel.pm,v 1.195 2003/11/29 11:08:04 fukachan Exp $ +# $FML: Kernel.pm,v 1.196 2003/11/29 14:32:03 fukachan Exp $ # package FML::Process::Kernel; @@ -107,7 +107,7 @@ sub new ml_home_prefix_maps default_config_cf site_default_config_cf - + )) { if (defined $args->{ main_cf }->{ $main_cf_var }) { my $key = sprintf("fml_%s", $main_cf_var); diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm index c956b574..98b70607 100644 --- a/fml/lib/FML/Process/Utils.pm +++ b/fml/lib/FML/Process/Utils.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: Utils.pm,v 1.93 2003/11/16 11:53:19 fukachan Exp $ +# $FML: Utils.pm,v 1.94 2003/11/23 03:54:46 fukachan Exp $ # package FML::Process::Utils; @@ -383,7 +383,7 @@ sub mkfile my $obj = new IO::Adapter $file; $obj->touch(); - # verify + # verify unless (-f $file) { $curproc->logerror("fail to create file: $file"); } @@ -1070,7 +1070,7 @@ sub is_config_cf_exist =head2 get_ml_home_prefix_maps() -return ml_home_prefix maps. +return ml_home_prefix maps. By default, ml_home_prefix and virtual under $fml_config_dir. =cut @@ -1096,7 +1096,7 @@ sub __get_ml_home_prefix_maps { my ($main_cf) = @_; - if (defined $main_cf->{ ml_home_prefix_maps } && + if (defined $main_cf->{ ml_home_prefix_maps } && $main_cf->{ ml_home_prefix_maps }) { my (@r) = (); my (@maps) = split(/\s+/, $main_cf->{ ml_home_prefix_maps }); @@ -1446,7 +1446,7 @@ sub get_charset last ACCEPT_LANGUAGE; } elsif ($a eq '*') { # any charset is o.k. - last ACCEPT_LANGUAGE; + last ACCEPT_LANGUAGE; } } } |