Quick kill of Class::Inspector warnings

diff --git a/Changes b/Changes
index 46fe8c3..0cc49e0 100644 (file)
--- 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 (file)
--- 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";