[Rt-commit] r5634 - in Scalar-Defer: .

[audreyt at bestpractical.com]

Author: audreyt
Date: Thu Jul 20 21:38:44 2006
New Revision: 5634

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

Log:
* This be 0.06.
* Inhibit redefinition warning when Scalar::Defer is loaded twice.
* Comment and syntax cleanup.

Modified: Scalar-Defer/Changes
==============================================================================
--- Scalar-Defer/Changes	(original)
+++ Scalar-Defer/Changes	Thu Jul 20 21:38:44 2006
@@ -1,3 +1,9 @@
+[Changes for 0.06 - 2006-07-20]
+
+* Inhibit redefinition warning when Scalar::Defer is loaded twice.
+
+* Comment and syntax cleanup.
+
 [Changes for 0.05 - 2006-07-19]
 
 * Calling methods on a deferred value now works correctly.

Modified: Scalar-Defer/lib/Scalar/Defer.pm
==============================================================================
--- Scalar-Defer/lib/Scalar/Defer.pm	(original)
+++ Scalar-Defer/lib/Scalar/Defer.pm	Thu Jul 20 21:38:44 2006
@@ -1,5 +1,5 @@
 package Scalar::Defer;
-$Scalar::Defer::VERSION = '0.05';
+$Scalar::Defer::VERSION = '0.06';
 
 use 5.006;
 use strict;
@@ -12,6 +12,9 @@
 private _defer => my %_defer;
 
 BEGIN {
+    no strict 'refs';
+    no warnings 'redefine';
+
     # Set up overload for the package "0".
     overload::OVERLOAD(
         '0' => fallback => 1, map {
@@ -19,7 +22,6 @@
         } qw( bool "" 0+ ${} @{} %{} &{} *{} )
     );
 
-    no strict 'refs';
     *{"0::AUTOLOAD"} = sub {
         my $meth = our $AUTOLOAD;
         my $idx = index($meth, '::');