diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-11-29 02:33:24 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-11-29 02:33:24 -0600 |
| commit | c049a789b0ccb2734ee8c8f1b8a6bb80b575c19b (patch) | |
| tree | f3b0752bb756bfadeec5e45ea15c83f38a3ffe08 | |
| parent | 8642531f61a9909d1e43cbe77887927c7cc5e517 (diff) | |
| download | package-stash-c049a789b0ccb2734ee8c8f1b8a6bb80b575c19b.tar.gz package-stash-c049a789b0ccb2734ee8c8f1b8a6bb80b575c19b.zip | |
simplify this logic a bit
| -rw-r--r-- | lib/Package/Stash/PP.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Package/Stash/PP.pm b/lib/Package/Stash/PP.pm index 2796a99..121a57e 100644 --- a/lib/Package/Stash/PP.pm +++ b/lib/Package/Stash/PP.pm @@ -159,9 +159,9 @@ sub add_symbol { } my $namespace = $self->namespace; - my $gv = $namespace->{$name} || Symbol::gensym; - *$gv = ref $initial_value ? $initial_value : \$initial_value; - $namespace->{$name} = *$gv; + $namespace->{$name} ||= *{ Symbol::gensym() }; + *{ $namespace->{$name} } = ref $initial_value + ? $initial_value : \$initial_value; } sub remove_glob { |