--- trunk/vhost/webpac2.cgi 2009/04/21 23:17:19 1133 +++ trunk/vhost/webpac2.cgi 2009/04/21 23:17:21 1135 @@ -12,7 +12,8 @@ print header; sub dump_yaml { - print qq|
|, YAML::Dump( @_ ), qq||; + my $name = shift; + print qq|
# $name\n|, YAML::Dump( @_ ), qq||; } my $path = $ENV{PATH_INFO}; @@ -51,7 +52,7 @@ if ( my $search = param('search') ) { - print qq|