diff options
| author | fukachan <fukachan> | 2006-03-20 06:02:44 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-03-20 06:02:44 +0000 |
| commit | 03a582af86981af9e5984a9113a35dd4411b6caf (patch) | |
| tree | 91c4ca43adc5830b515c98065ceb097e00d444b1 | |
| parent | 8b803843e069115776f6fa53b6a0fefc0cf88a30 (diff) | |
| download | fml8-03a582af86981af9e5984a9113a35dd4411b6caf.tar.gz fml8-03a582af86981af9e5984a9113a35dd4411b6caf.tar.bz2 fml8-03a582af86981af9e5984a9113a35dd4411b6caf.zip | |
output format little changed.
| -rwxr-xr-x | regress/fml4to8/configtest.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/regress/fml4to8/configtest.pl b/regress/fml4to8/configtest.pl index ce79169f..bb4fab80 100755 --- a/regress/fml4to8/configtest.pl +++ b/regress/fml4to8/configtest.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# $FML: configtest.pl,v 1.6 2006/02/24 12:49:13 fukachan Exp $ +# $FML: configtest.pl,v 1.7 2006/02/25 13:49:27 fukachan Exp $ # use strict; @@ -13,7 +13,7 @@ my $base_dir = shift || '/var/spool/ml'; for my $f (sort <$base_dir/*/config.ph>) { if (-f $f && is_ok($f)) { - print "\n// check $f\n"; + print "\n===> $f\n"; eval q{ check($f); }; croak($@) if $@; print $@ if $@; @@ -22,7 +22,7 @@ for my $f (sort <$base_dir/*/config.ph>) { for my $f (sort <$base_dir/*/.fml4rc/config.ph>) { if (-f $f && is_ok($f)) { - print "\n// check $f\n"; + print "\n===> $f\n"; eval q{ check($f); }; croak($@) if $@; print $@ if $@; @@ -87,7 +87,7 @@ sub check if ($x = $config_ph->translate($config, $diff, $k, $v)) { if ($x =~ /IGNORED (since .*)/) { - print "# A: OK (IGNORED $1)\n"; + print "# A: IGNORED: $1\n"; } elsif ($x =~ /ERROR/) { push(@failed_queue, $query); |