diff options
| -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"; |