This is 0.41

diff --git a/Changes b/Changes
index c37d46a752e90d3054d02fa93032cbf164c6f768..9a7914e57c106e6a07642490c009e23d450d0de1 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,13 @@
 Revision history for Variable-Magic
 
+0.41    2010-03-15 17:35 UTC
+        + Doc : Tweaks and fixups.
+                Thanks Shlomi Fish.
+        + Fix : Compatibility with the soon-to-be-released perl 5.12.0.
+        + Fix : Correctly propagate the errors thrown when variable destruction
+                happens at compile-time and not from inside eval STRING.
+                Thanks Florian Ragwitz and Ash Berlin for reporting.
+
 0.40    2010-01-06 23:20 UTC
         + Fix : Possible memory miswrites when passing data arguments to cast().
         + Fix : Minor C portability tweaks.

diff --git a/MANIFEST b/MANIFEST
index 88af47ae4241b7be8135b4b0092affced3561af5..d42950052810afab633390eced4240b805a73773 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,6 +1,6 @@
 Changes
 MANIFEST
-META.yml # Will be created by "make dist"
+META.yml
 Magic.xs
 Makefile.PL
 README

diff --git a/META.yml b/META.yml
index 52add9936611f6010905d5ec9d13622ae46a6cb6..acf9f9cbc20fae4a64b1ff03ea82e0383a386ac1 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Variable-Magic
-version:            0.40
+version:            0.41
 abstract:           Associate user-defined magic to variables from Perl.
 author:
     - Vincent Pit <perl@profvince.com>

diff --git a/README b/README
index 23b530367dba84697985fea191810749fa782cdf..f6f4362944106f006d7fe75b6f7559bf37d56492 100644 (file)
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     Variable::Magic - Associate user-defined magic to variables from Perl.
 
 VERSION
-    Version 0.40
+    Version 0.41
 
 SYNOPSIS
         use Variable::Magic qw/wizard cast VMG_OP_INFO_NAME/;
@@ -30,8 +30,8 @@ SYNOPSIS
         }
 
 DESCRIPTION
-    Magic is Perl way of enhancing objects. This mechanism lets the user add
-    extra data to any variable and hook syntaxical operations (such as
+    Magic is Perl's way of enhancing variables. This mechanism lets the user
+    add extra data to any variable and hook syntactical operations (such as
     access, assignment or destruction) that can be applied to it. With this
     module, you can add your own magic to any variable without having to
     write a single line of XS.
@@ -52,12 +52,12 @@ DESCRIPTION
 
     *   It doesn't replace the original semantics.
 
-        Magic callbacks usually trigger before the original action take
-        place, and can't prevent it to happen. This also makes catching
-        individual events easier than with "tie", where you have to provide
-        fallbacks methods for all actions by usually inheriting from the
-        correct "Tie::Std*" class and overriding individual methods in your
-        own class.
+        Magic callbacks usually get triggered before the original action
+        takes place, and can't prevent it from happening. This also makes
+        catching individual events easier than with "tie", where you have to
+        provide fallbacks methods for all actions by usually inheriting from
+        the correct "Tie::Std*" class and overriding individual methods in
+        your own class.
 
     *   It's type-agnostic.
 
@@ -352,7 +352,9 @@ CONSTANTS
 
 COOKBOOK
   Associate an object to any perl variable
-    This can be useful for passing user data through limited APIs.
+    This technique can be useful for passing user data through limited APIs.
+    It is similar to using inside-out objects, but without the drawback of
+    having to implement a complex destructor.
 
         {
          package Magical::UserData;
@@ -365,9 +367,9 @@ COOKBOOK
           my ($var) = @_;
           my $data = &getdata($var, $wiz);
           unless (defined $data) {
-           &cast($var, $wiz);
-           $data = &getdata($var, $wiz);
-           die "Couldn't cast UserData magic onto the variable" unless defined $data;
+           $data = \(my $slot);
+           &cast($var, $wiz, $slot)
+                            or die "Couldn't cast UserData magic onto the variable";
           }
           $$data;
          }

diff --git a/lib/Variable/Magic.pm b/lib/Variable/Magic.pm
index bdbb97e8acc365adb5144d31aa3a5e85009b36b9..bebfc984ef21946ca609334f5f4e2fc31f921239 100644 (file)
--- a/lib/Variable/Magic.pm
+++ b/lib/Variable/Magic.pm
@@ -13,13 +13,13 @@ Variable::Magic - Associate user-defined magic to variables from Perl.
 
 =head1 VERSION
 
-Version 0.40
+Version 0.41
 
 =cut
 
 our $VERSION;
 BEGIN {
- $VERSION = '0.40';
+ $VERSION = '0.41';
 }
 
 =head1 SYNOPSIS