diff options
| author | fukachan <fukachan> | 2004-03-14 07:04:47 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-03-14 07:04:47 +0000 |
| commit | bc1f2add7ffb589efdd1d70d1ca93ffc0af5b30a (patch) | |
| tree | 4786542433e88576eec6274e32064efce82bd9a7 /regress/style | |
| parent | c0175118d67ee8530873801939652bfc1e92a10f (diff) | |
| download | fml8-bc1f2add7ffb589efdd1d70d1ca93ffc0af5b30a.tar.gz fml8-bc1f2add7ffb589efdd1d70d1ca93ffc0af5b30a.tar.bz2 fml8-bc1f2add7ffb589efdd1d70d1ca93ffc0af5b30a.zip | |
modify format
Diffstat (limited to 'regress/style')
| -rwxr-xr-x | regress/style/check_pcb.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/regress/style/check_pcb.pl b/regress/style/check_pcb.pl index 5a66a4de..13771ff5 100755 --- a/regress/style/check_pcb.pl +++ b/regress/style/check_pcb.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# $FML: check_pcb.pl,v 1.1 2003/10/29 14:50:55 fukachan Exp $ +# $FML: check_pcb.pl,v 1.2 2004/01/04 13:36:52 fukachan Exp $ # use strict; @@ -9,7 +9,7 @@ use FileHandle; my $wh = new FileHandle "|rev|sort|rev"; my $fn = ''; -my $format = "%23s %30s %3s %s\n"; +my $format = "%-10s %-40s %3s %s\n"; $| = 1; @@ -41,6 +41,7 @@ sub cleanup $s =~ s@.pm$@@; $s =~ s@//@/@g; + $s =~ s@FML/Process/@@g; return $s; } |