pf-tools/pf-tools: FIX: Replace throws_ok by eval function

[parmelan-guest at users.alioth.debian.org]

details:   http://hg.debian.org/hg/pf-tools/pf-tools/rev/188f04996e98
changeset: 1189:188f04996e98
user:      Richard Phan
date:      Tue Jul 16 14:02:03 2013 +0200
description:
FIX: Replace throws_ok by eval function

diffstat:

 t/13.conf.t |  10 +++++++---
 1 files changed, 7 insertions(+), 3 deletions(-)

diffs (20 lines):

diff -r 412da1bae65d -r 188f04996e98 t/13.conf.t
--- a/t/13.conf.t	Tue Jul 16 10:29:45 2013 +0200
+++ b/t/13.conf.t	Tue Jul 16 14:02:03 2013 +0200
@@ -1704,9 +1704,13 @@
     => q{Dies if empty site_name};
 }
 
-throws_ok { get_site_dhcp_config( {} ) }
-qr{ \A ERROR: [ ] Invalid [ ] site_name }xms
-    => q{Dies if non-scalar site_name};
+# https://rt.cpan.org/Public/Bug/Display.html?ShowHeaders=1;id=55179
+#throws_ok { get_site_dhcp_config( {} ) }
+#qr{ \A ERROR: [ ] Invalid [ ] site_name }xms
+#    => q{Dies if non-scalar site_name};
+eval { get_site_dhcp_config( {} ) };
+ok $@ =~ qr{ \A ERROR: [ ] Invalid [ ] site_name }xms,
+    q{Dies if non-scalar site_name};
 
 throws_ok { get_site_dhcp_config( q{site_name} ) }
 qr{ \A ERROR: [ ] Invalid [ ] global_config }xms