[Bps-public-commit] r18124 - in Scalar-Defer: .

[sartak at bestpractical.com]

Author: sartak
Date: Mon Feb  2 01:34:10 2009
New Revision: 18124

Modified:
   Scalar-Defer/Changes
   Scalar-Defer/lib/Scalar/Defer.pm

Log:
Silence DEMOLISH redefined warnings

Modified: Scalar-Defer/Changes
==============================================================================
--- Scalar-Defer/Changes	(original)
+++ Scalar-Defer/Changes	Mon Feb  2 01:34:10 2009
@@ -1,3 +1,7 @@
+[Changes for 0.19 - ???]
+
+* Silence Scalar::Defer::Deferred::DEMOLISH warnings
+
 [Changes for 0.18 - 2008-08-12]
 
 * Patch from ISHIGAKI++ to fix broken tests on perl 5.10.0

Modified: Scalar-Defer/lib/Scalar/Defer.pm
==============================================================================
--- Scalar-Defer/lib/Scalar/Defer.pm	(original)
+++ Scalar-Defer/lib/Scalar/Defer.pm	Mon Feb  2 01:34:10 2009
@@ -101,7 +101,7 @@
     };
 
     {
-        foreach my $sym (grep { $_ ne 'DESTROY' and $_ ne 'BEGIN' and $_ ne 'END' and $_ ne 'AUTOLOAD' } keys %UNIVERSAL::) {
+        foreach my $sym (grep { $_ ne 'DESTROY' and $_ ne 'DEMOLISH' and $_ ne 'BEGIN' and $_ ne 'END' and $_ ne 'AUTOLOAD' } keys %UNIVERSAL::) {
             my $code = q[
                 sub $sym {
                     if ( defined Scalar::Util::blessed($_[0]) ) {