From: Christopher H. Laco <claco@cpan.org>
Date: Sat, 12 May 2007 01:23:44 +0000 (+0000)
Subject: Quick kill of Class::Inspector warnings
X-Git-Tag: v0.05002^0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bce7bdf8b4c996cd05dac10c59185dc1f487cc4e;p=p5sagit%2FClass-Accessor-Grouped.git

Quick kill of Class::Inspector warnings
---

diff --git a/Changes b/Changes
index 46fe8c3..0cc49e0 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Class::Accessor::Grouped.
 
+0.05002 Fri May 11 20:46:16 2007
+    - killed Class::Inspector->installed warnings
+
 0.05001 Thur May 10 20:55:11 2007
     - set_component_class now only dies if the specified class is a
         installed/installable class and fails to load it.
diff --git a/lib/Class/Accessor/Grouped.pm b/lib/Class/Accessor/Grouped.pm
index 0264651..e1c3f84 100644
--- a/lib/Class/Accessor/Grouped.pm
+++ b/lib/Class/Accessor/Grouped.pm
@@ -8,7 +8,7 @@ use Scalar::Util qw/reftype blessed/;
 
 use vars qw($VERSION);
 
-$VERSION = '0.05001';
+$VERSION = '0.05002';
 
 =head1 NAME
 
@@ -408,6 +408,7 @@ sub set_component_class {
     my ($self, $field, $value) = @_;
 
     if ($value) {
+        local $^W = 0;
         if (Class::Inspector->installed($value) && !Class::Inspector->loaded($value)) {
             eval "use $value";