X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FVariable%2FTemp.pm;h=6951e521c9365dbe4c1406000a33d12ce8ff7028;hb=a0354dc7afe3f6671a1b3e2bcc28297d75a9e7dd;hp=5be8073853f332eaf3493bf28263b6e0f20bfba1;hpb=ff85c569554967a354f1b6d113312fb2899af564;p=perl%2Fmodules%2FVariable-Temp.git

diff --git a/lib/Variable/Temp.pm b/lib/Variable/Temp.pm
index 5be8073..6951e52 100644
--- a/lib/Variable/Temp.pm
+++ b/lib/Variable/Temp.pm
@@ -11,13 +11,13 @@ Variable::Temp - Temporarily change the value of a variable.
 
 =head1 VERSION
 
-Version 0.01
+Version 0.04
 
 =cut
 
 our $VERSION;
 BEGIN {
- $VERSION = '0.01';
+ $VERSION = '0.04';
 }
 
 =head1 SYNOPSIS
@@ -113,7 +113,8 @@ sub temp (\[$@%]) :lvalue {
  } else { # $type eq 'SCALAR' || $type eq 'REF'
   my $save = $$var;
   &Scope::Upper::reap(sub { $$var = $save } => $target);
-  $ret = $var;
+  $$var = undef;
+  $ret  = $var;
  }
  $$ret;
 }
@@ -200,7 +201,7 @@ You can find documentation for this module with the perldoc command.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2015 Vincent Pit, all rights reserved.
+Copyright 2015,2017 Vincent Pit, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.