create_config now calls BAIL_OUT on its own

diff --git a/t/06_mail_handling.t b/t/06_mail_handling.t
index f0b2b375c9ef6db564e7c8b58daf983751bdfc93..0e42ed03f5ea1e97972c13507be19269c6db3e9a 100644 (file)
--- a/t/06_mail_handling.t
+++ b/t/06_mail_handling.t
@@ -26,13 +26,8 @@ use Encode qw(decode encode);
 
 # HTTP::Server:::Simple defines a SIG{CHLD} handler that breaks system; undef it here.
 $SIG{CHLD} = sub {};
-my %config;
-eval {
-     %config = create_debbugs_configuration();
-};
-if ($@) {
-     BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
+
 
 my $sendmail_dir = $config{sendmail_dir};
 my $spool_dir = $config{spool_dir};

diff --git a/t/07_bugreport.t b/t/07_bugreport.t
index c1438c276888711bb4cab8eec14f00131bf25a50..dfc1650c2dfd954df7249cc2f191c7cb6b068072 100644 (file)
--- a/t/07_bugreport.t
+++ b/t/07_bugreport.t
@@ -24,13 +24,8 @@ use HTTP::Status qw(RC_NOT_MODIFIED);
 use lib qw(t/lib);
 use DebbugsTest qw(:all);
 
-my %config;
-eval {
-     %config = create_debbugs_configuration();
-};
-if ($@) {
-     BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
+
 
 # create a bug
 send_message(to=>'submit@bugs.something',

diff --git a/t/07_control_limit.t b/t/07_control_limit.t
index 1283223a4b3ed35802c87e41c7e89b7a33121eb5..ae3e98aa87f60c19dea12344d806e1a31c85f82e 100644 (file)
--- a/t/07_control_limit.t
+++ b/t/07_control_limit.t
@@ -24,13 +24,8 @@ use Data::Dumper;
 
 # HTTP::Server:::Simple defines a SIG{CHLD} handler that breaks system; undef it here.
 $SIG{CHLD} = sub {};
-my %config;
-eval {
-     %config = create_debbugs_configuration();
-};
-if ($@) {
-     BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
+
 
 my $sendmail_dir = $config{sendmail_dir};
 my $spool_dir = $config{spool_dir};

diff --git a/t/08_pkgreport.t b/t/08_pkgreport.t
index 97f331fbc168abfd028ce58a9b75963040a4ac36..745e35dd4b80b857c306bd654f3fbab6a382c1eb 100644 (file)
--- a/t/08_pkgreport.t
+++ b/t/08_pkgreport.t
@@ -23,13 +23,8 @@ use Test::WWW::Mechanize;
 use lib qw(t/lib);
 use DebbugsTest qw(:all);
 
-my %config;
-eval {
-     %config = create_debbugs_configuration();
-};
-if ($@) {
-     BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
+
 
 # create a bug
 send_message(to=>'submit@bugs.something',

diff --git a/t/09_soap.t b/t/09_soap.t
index ccd51edc335bd9d254423052919ea9c2889ea19a..266c4c5ed26f2456de230621e417b0058d03d892 100644 (file)
--- a/t/09_soap.t
+++ b/t/09_soap.t
@@ -17,13 +17,8 @@ use lib qw(t/lib);
 use DebbugsTest qw(:configuration);
 use Cwd;
 
-my %config;
-eval {
-     %config = create_debbugs_configuration();
-};
-if ($@) {
-     BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
+
 
 # create a bug
 send_message(to=>'submit@bugs.something',

diff --git a/t/10_expire.t b/t/10_expire.t
index fef4094dd6cf4d1cdbbfb096e4108b1a4f556aec..311b9b374034cd501befb7cc79fd11523693eaa3 100644 (file)
--- a/t/10_expire.t
+++ b/t/10_expire.t
@@ -25,13 +25,8 @@ use Data::Dumper;
 
 # HTTP::Server:::Simple defines a SIG{CHLD} handler that breaks system; undef it here.
 $SIG{CHLD} = sub {};
-my %config;
-eval {
-     %config = create_debbugs_configuration();
-};
-if ($@) {
-     BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
+
 
 my $sendmail_dir = $config{sendmail_dir};
 my $spool_dir = $config{spool_dir};

diff --git a/t/11_blocks.t b/t/11_blocks.t
index 5e277cdb4147ae18e1aa38c82afbae45fa4fbd62..72f7c35b687e6f93e0893c9583950306c425b46c 100644 (file)
--- a/t/11_blocks.t
+++ b/t/11_blocks.t
@@ -25,13 +25,8 @@ use Test::WWW::Mechanize;
 
 # HTTP::Server:::Simple defines a SIG{CHLD} handler that breaks system; undef it here.
 $SIG{CHLD} = sub {};
-my %config;
-eval {
-     %config = create_debbugs_configuration();
-};
-if ($@) {
-     BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
+
 
 my $sendmail_dir = $config{sendmail_dir};
 my $spool_dir = $config{spool_dir};

diff --git a/t/12_merge.t b/t/12_merge.t
index 4857f143967327f4a8e537ac5faf6cb5e207b235..c654359028add1255c2fed520148b1cc6af07566 100644 (file)
--- a/t/12_merge.t
+++ b/t/12_merge.t
@@ -24,13 +24,8 @@ use Data::Dumper;
 
 # HTTP::Server:::Simple defines a SIG{CHLD} handler that breaks system; undef it here.
 $SIG{CHLD} = sub {};
-my %config;
-eval {
-     %config = create_debbugs_configuration();
-};
-if ($@) {
-     BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
+
 
 my $sendmail_dir = $config{sendmail_dir};
 my $spool_dir = $config{spool_dir};

diff --git a/t/13_utf8_mail.t b/t/13_utf8_mail.t
index 8fb49e414b4416659683477e4108f0272e486002..b98154e9f015cc16e19b6f900ddaf603799c635f 100644 (file)
--- a/t/13_utf8_mail.t
+++ b/t/13_utf8_mail.t
@@ -28,13 +28,8 @@ use Encode qw(decode encode decode_utf8 encode_utf8);
 
 # HTTP::Server:::Simple defines a SIG{CHLD} handler that breaks system; undef it here.
 $SIG{CHLD} = sub {};
-my %config;
-eval {
-     %config = create_debbugs_configuration();
-};
-if ($@) {
-     BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
+
 
 my $sendmail_dir = $config{sendmail_dir};
 my $spool_dir = $config{spool_dir};

diff --git a/t/14_control_at_submit.t b/t/14_control_at_submit.t
index 41c6a03758cd8f7751509e1c30a008e29061f60e..950d1a973a4bccc9151fafeb6c13dabb9e080c74 100644 (file)
--- a/t/14_control_at_submit.t
+++ b/t/14_control_at_submit.t
@@ -26,13 +26,8 @@ use Encode qw(decode encode);
 
 # HTTP::Server:::Simple defines a SIG{CHLD} handler that breaks system; undef it here.
 $SIG{CHLD} = sub {};
-my %config;
-eval {
-     %config = create_debbugs_configuration();
-};
-if ($@) {
-     BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
+
 
 my $sendmail_dir = $config{sendmail_dir};
 my $spool_dir = $config{spool_dir};

diff --git a/t/15_rebuild_indexdb.t b/t/15_rebuild_indexdb.t
index 85d7681015e22e13f5e658e07148356b5c734235..6f6aa212fb580e6369e3959253f974ebffcef9d7 100644 (file)
--- a/t/15_rebuild_indexdb.t
+++ b/t/15_rebuild_indexdb.t
@@ -27,13 +27,8 @@ use Encode qw(decode encode decode_utf8 encode_utf8);
 
 # HTTP::Server:::Simple defines a SIG{CHLD} handler that breaks system; undef it here.
 $SIG{CHLD} = sub {};
-my %config;
-eval {
-     %config = create_debbugs_configuration();
-};
-if ($@) {
-     BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
+
 
 my $sendmail_dir = $config{sendmail_dir};
 my $spool_dir = $config{spool_dir};