From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 23 Jul 2014 18:15:10 +0000 (+0200)
Subject: Correct test of ${^WARNING_BITS} - as haarg++ noted: runtime != compile time
X-Git-Tag: v0.082800~116
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c480ff4ac5ed304ec470a37516ee9c74eb843998;p=dbsrgits%2FDBIx-Class.git

Correct test of ${^WARNING_BITS} - as haarg++ noted: runtime != compile time

Also bump Moo prereq for proper
 * presence of undefer_all
 * fixes of meory leaks in Sub::Quote/Sub::Defer
---

diff --git a/Makefile.PL b/Makefile.PL
index 5a952e2..eb1cb5b 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -79,7 +79,7 @@ my $runtime_requires = {
   'Data::Page'               => '2.00',
   'Devel::GlobalDestruction' => '0.09',
   'Hash::Merge'              => '0.12',
-  'Moo'                      => '1.002',
+  'Moo'                      => '1.004005',
   'MRO::Compat'              => '0.12',
   'Module::Find'             => '0.07',
   'namespace::clean'         => '0.24',
diff --git a/xt/quote_sub.t b/xt/quote_sub.t
index 7918cc5..77b4905 100644
--- a/xt/quote_sub.t
+++ b/xt/quote_sub.t
@@ -27,17 +27,17 @@ my $no_nothing_q = do {
   no strict;
   no warnings;
   quote_sub <<'EOC';
+    BEGIN { warn "-->${^WARNING_BITS}<--\n" };
     my $n = "Test::Warn::warnings_exist";
     warn "-->@{[ *{$n}{CODE} ]}<--\n";
-    warn "-->@{[ ${^WARNING_BITS} || '' ]}<--\n";
 EOC
 };
 
 my $we_cref = Test::Warn->can('warnings_exist');
 
 warnings_exist { $no_nothing_q->() } [
+  qr/^\-\-\>\0+\<\-\-$/m,
   qr/^\Q-->$we_cref<--\E$/m,
-  qr/^\-\-\>\0*\<\-\-$/m, # some perls have a string of nulls, some just an empty string
 ], 'Expected warnings, strict did not leak inside the qsub'
   or do {
     require B::Deparse;