X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Temp.git;a=blobdiff_plain;f=lib%2FVariable%2FTemp.pm;fp=lib%2FVariable%2FTemp.pm;h=390ff48327278330812ca2559bbde170acda0a29;hp=5be8073853f332eaf3493bf28263b6e0f20bfba1;hb=01a4daa0f14207acfeff236b5381e3dfebe1b981;hpb=dc891c289e47d178a3312b13482753c964e3da00

diff --git a/lib/Variable/Temp.pm b/lib/Variable/Temp.pm
index 5be8073..390ff48 100644
--- a/lib/Variable/Temp.pm
+++ b/lib/Variable/Temp.pm
@@ -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;
 }