From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 16 Mar 2012 10:51:16 +0000 (+0100)
Subject: Fix spurious 'once' warnings
X-Git-Tag: v0.009014~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0fe2ad8c2ab220a0d6dda54aaa4684e8b711f9b3;p=gitmo%2FMoo.git

Fix spurious 'once' warnings
---

diff --git a/Changes b/Changes
index 90a6e76..c8aa52f 100644
--- a/Changes
+++ b/Changes
@@ -5,6 +5,7 @@
     things down to do it this way and makes debugging easier.
   - Revert 'local $@' around require calls to avoid triggering Unknown Error
   - Explicitly require Role::Tiny in Role::Tiny::With (RT#70446)
+  - Fix spurious 'once' warnings under perl -w
 
 0.009013 - 2011-12-23
   - fix up Class::XSAccessor version check to be more robust
diff --git a/lib/Moo/_Utils.pm b/lib/Moo/_Utils.pm
index 6fa6e24..5f62a98 100644
--- a/lib/Moo/_Utils.pm
+++ b/lib/Moo/_Utils.pm
@@ -1,5 +1,7 @@
 package Moo::_Utils;
 
+no warnings 'once'; # guard against -w
+
 sub _getglob { \*{$_[0]} }
 sub _getstash { \%{"$_[0]::"} }