From 5c9c265e0dfd1d535e5edbeffcb9cb3884d3998d Mon Sep 17 00:00:00 2001 From: fukachan Date: Mon, 13 May 2002 14:24:46 +0000 Subject: validate if config.cf exists --- fml/lib/FML/Command/HTMLify.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'fml/lib/FML/Command/HTMLify.pm') diff --git a/fml/lib/FML/Command/HTMLify.pm b/fml/lib/FML/Command/HTMLify.pm index 93ac99f4..d8703dfe 100644 --- a/fml/lib/FML/Command/HTMLify.pm +++ b/fml/lib/FML/Command/HTMLify.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: HTMLify.pm,v 1.3 2002/04/22 04:02:01 fukachan Exp $ +# $FML: HTMLify.pm,v 1.4 2002/04/27 05:25:01 fukachan Exp $ # package FML::Command::HTMLify; @@ -44,6 +44,10 @@ sub convert croak("no such source directory"); } + unless ($curproc->is_config_cf_exist()) { + croak("invalid ML"); + } + my ($is_subdir_exists, $subdirs) = _check_subdir_exists($src_dir); if ($is_subdir_exists) { Log("looks subdir exists");} -- cgit v1.2.1