[Bast-commits] r3306 - in trunk/Class-Accessor-Grouped: . lib/Class/Accessor

[claco at dev.catalyst.perl.org]

Author: claco
Date: 2007-05-12 02:23:44 +0100 (Sat, 12 May 2007)
New Revision: 3306

Modified:
   trunk/Class-Accessor-Grouped/Changes
   trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
Log:
Quick kill of Class::Inspector warnings


Modified: trunk/Class-Accessor-Grouped/Changes
===================================================================
--- trunk/Class-Accessor-Grouped/Changes	2007-05-11 21:21:22 UTC (rev 3305)
+++ trunk/Class-Accessor-Grouped/Changes	2007-05-12 01:23:44 UTC (rev 3306)
@@ -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.

Modified: trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm
===================================================================
--- trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm	2007-05-11 21:21:22 UTC (rev 3305)
+++ trunk/Class-Accessor-Grouped/lib/Class/Accessor/Grouped.pm	2007-05-12 01:23:44 UTC (rev 3306)
@@ -8,7 +8,7 @@
 
 use vars qw($VERSION);
 
-$VERSION = '0.05001';
+$VERSION = '0.05002';
 
 =head1 NAME
 
@@ -408,6 +408,7 @@
     my ($self, $field, $value) = @_;
 
     if ($value) {
+        local $^W = 0;
         if (Class::Inspector->installed($value) && !Class::Inspector->loaded($value)) {
             eval "use $value";