Importing Variable-Magic-0.05.tar.gz

diff --git a/Changes b/Changes
index d5a8d09d23ebd62c26bd8f4d51f0384e921108df..171ac4f41afac3421dae578fe906f71c6917fd4c 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Variable-Magic
 
+0.05    2007-11-19 09:10 UTC
+        + Fix : 5.10.0_RC1 compatibility fix.
+
 0.04    2007-08-28 12:25 UTC
         + Chg : s/require (XSLoader)/use $1/.
         + Fix : Tests are now strict.

diff --git a/META.yml b/META.yml
index b0a9eb4b2f2c66b569bebd208e3b1266513a58c4..c70ad14c09262298e2d504c3f6be0c2ace8c4d25 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -1,9 +1,9 @@
 --- #YAML:1.0
 name:                Variable-Magic
-version:             0.04
+version:             0.05
 abstract:            Associate user-defined magic to variables from Perl.
 license:             perl
-generated_by:        ExtUtils::MakeMaker version 6.36
+generated_by:        ExtUtils::MakeMaker version 6.36_01
 distribution_type:   module
 requires:     
     Carp:                          0

diff --git a/Magic.xs b/Magic.xs
index 14874e19527ef9c408e59e8ad264e2fbcb4b7d07..89c8351d902fc361f94bd7db7642b3962860212e 100644 (file)
--- a/Magic.xs
+++ b/Magic.xs
@@ -273,7 +273,7 @@ STATIC int vmg_wizard_free(pTHX_ SV *wiz, MAGIC *mg) {
  w = SV2MGWIZ(wiz);
 
  SvREFCNT_inc(wiz); /* Fake survival - it's gonna be deleted anyway */
-#if PERL_API_REVISION >= 5 && PERL_API_VERSION >= 9 && PERL_API_SUBVERSION >= 5
+#if PERL_API_REVISION > 5 || (PERL_API_REVISION == 5 && (PERL_API_VERSION > 9 || (PERL_API_VERSION == 9 && PERL_API_SUBVERSION >= 5)))
  SvREFCNT_inc(wiz); /* One more push */
 #endif
  if (hv_delete(MY_CXT.wizz, buf, sprintf(buf, "%u", w->sig), 0)) {

diff --git a/README b/README
index 281f3dca7838554375ef4149ead4dc35b84529c9..cec74c1770dafc895c144ade5dd3475c5b7306e8 100644 (file)
--- a/README
+++ b/README
@@ -2,7 +2,7 @@ NAME
     Variable::Magic - Associate user-defined magic to variables from Perl.
 
 VERSION
-    Version 0.04
+    Version 0.05
 
 SYNOPSIS
         use Variable::Magic qw/wizard cast dispell/;

diff --git a/lib/Variable/Magic.pm b/lib/Variable/Magic.pm
index 7289d6e4e3c8f7c3d2a0ace1535c0bdfad1fe49e..d33c37b4d47e2b1a8666bfe5bdb7a7378ca3a50f 100644 (file)
--- a/lib/Variable/Magic.pm
+++ b/lib/Variable/Magic.pm
@@ -11,11 +11,11 @@ Variable::Magic - Associate user-defined magic to variables from Perl.
 
 =head1 VERSION
 
-Version 0.04
+Version 0.05
 
 =cut
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 =head1 SYNOPSIS
 

diff --git a/samples/magic.pl b/samples/magic.pl
index 1439e2d37bb4e0fac9a06d6cd56e457d86d2eb1e..74117444f867baca3320d27cf69113dc1439939e 100755 (executable)
--- a/samples/magic.pl
+++ b/samples/magic.pl
@@ -14,7 +14,7 @@ my $sig;
 {
  my $wiz = wizard get  => \&foo,
                   set  => $bar,
-                  free => sub {  print STDERR "deleted!\n"; };
+                  free => sub { print STDERR "deleted!\n"; };
  $sig = getsig $wiz;
  print "my sig is $sig\n";
  cast $a, $wiz, qw/a b c/;

diff --git a/t/10-simple.t b/t/10-simple.t
index a5d091701154b54c8aa83487eb61a97ac17b0227..99136bddb1dd0c960dcd1b5c7ea7d045c467e2eb 100644 (file)
--- a/t/10-simple.t
+++ b/t/10-simple.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 14;
+use Test::More tests => 16;
 
 use Variable::Magic qw/wizard gensig getsig cast dispell/;
 
@@ -32,6 +32,10 @@ $res = eval { dispell $a, $wiz };
 ok(!$@, "re-dispell croaks ($@)");
 ok($res, 're-dispell invalid');
 
+$res = eval { dispell my $b, $wiz };
+ok(!$@, "dispell non-magic object fails ($@)");
+ok($res == 0, 'dispell non-magic object doesn\'t return 0');
+
 $sig = gensig;
 {
  my $wiz = wizard sig => $sig;