diff options
| author | fukachan <fukachan> | 2001-04-15 13:29:28 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-15 13:29:28 +0000 |
| commit | 4aaf722cde8482855d3524ccbcf05885a4d393a7 (patch) | |
| tree | c7913ae884208ea0151ea08ac257fa8447513c57 | |
| parent | bc05979e1fbd4c10d164318ae2c0f755fb517c63 (diff) | |
| download | fml8-4aaf722cde8482855d3524ccbcf05885a4d393a7.tar.gz fml8-4aaf722cde8482855d3524ccbcf05885a4d393a7.tar.bz2 fml8-4aaf722cde8482855d3524ccbcf05885a4d393a7.zip | |
align format by printf
| -rwxr-xr-x | regress/message/bounce.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/regress/message/bounce.pl b/regress/message/bounce.pl index 7d09a36f..51686f23 100755 --- a/regress/message/bounce.pl +++ b/regress/message/bounce.pl @@ -5,7 +5,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: bounce.pl,v 1.4 2001/04/12 10:47:45 fukachan Exp $ +# $FML: bounce.pl,v 1.5 2001/04/12 13:01:50 fukachan Exp $ # use strict; @@ -23,7 +23,7 @@ for my $f (@ARGV) { my $bouncer = new Mail::Bounce; $bouncer->analyze( $msg ); print "\n--- result (debug)\n\n" if $ENV{'debug'}; - print ($bouncer->address_list ? "# $f ok\n" : "# $f fail\n\n"); + printf "# %-15s ... %s\n", $f, ($bouncer->address_list ? "ok" : "fail"); if ($ENV{'dump'}) { eval qq{ require Data::Dumper; Data::Dumper->import();}; |