[Bps-public-commit] r13652 - Scalar-Defer/lib/Scalar

[nothingmuch at bestpractical.com]

Author: nothingmuch
Date: Fri Jun 27 04:17:53 2008
New Revision: 13652

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

Log:
fix warning

Modified: Scalar-Defer/lib/Scalar/Defer.pm
==============================================================================
--- Scalar-Defer/lib/Scalar/Defer.pm	(original)
+++ Scalar-Defer/lib/Scalar/Defer.pm	Fri Jun 27 04:17:53 2008
@@ -90,7 +90,7 @@
     };
 
     {
-        foreach my $sym (keys %UNIVERSAL::) {
+        foreach my $sym (grep { $_ ne 'DESTROY' } keys %UNIVERSAL::) {
 			my $code = 'sub $sym {
 				if ( defined Scalar::Util::blessed($_[0]) ) { # FUCK
 					unshift @_, Scalar::Defer::SUB_FORCE()->(shift(@_));