diff options
| author | fukachan <fukachan> | 2001-04-12 13:01:50 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-12 13:01:50 +0000 |
| commit | c55bfca6beaf6d6dd0df685f3745929c1b6873d3 (patch) | |
| tree | a26dddaac612b85eddd2524a52201b66fb010b71 /regress/message | |
| parent | 304904d74bd6b4d3595cf4c7995f7fa03777d27e (diff) | |
| download | fml8-c55bfca6beaf6d6dd0df685f3745929c1b6873d3.tar.gz fml8-c55bfca6beaf6d6dd0df685f3745929c1b6873d3.tar.bz2 fml8-c55bfca6beaf6d6dd0df685f3745929c1b6873d3.zip | |
$ENV{'dump'} runs Data::Dumper() to dump the message.
Diffstat (limited to 'regress/message')
| -rwxr-xr-x | regress/message/bounce.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/regress/message/bounce.pl b/regress/message/bounce.pl index a5277c3f..7d09a36f 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.3 2001/04/10 11:54:22 fukachan Exp $ +# $FML: bounce.pl,v 1.4 2001/04/12 10:47:45 fukachan Exp $ # use strict; @@ -25,6 +25,12 @@ for my $f (@ARGV) { print "\n--- result (debug)\n\n" if $ENV{'debug'}; print ($bouncer->address_list ? "# $f ok\n" : "# $f fail\n\n"); + if ($ENV{'dump'}) { + eval qq{ require Data::Dumper; Data::Dumper->import();}; + print $@ if $@; + eval q{ print Dumper( $msg ); }; + } + for my $a ( $bouncer->address_list ) { print "address: $a\n"; |